#!/usr/local/bin/perl -w

#6
$string = "Name=Paul;RIN=660066466;email=lallip\@cs.rpi.edu";
@fields = split (/;/, $string);
foreach (@fields){
    /(.*)=(.*)/;
    print "Key = $1, Value = $2\n";
}