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

#5
$string = "Name=Paul;RIN=660066466;email=lallip\@cs.rpi.edu";
$string =~ /Name=(.*);/;
print "first match: $1\n";
$string =~ /Name=(.*?);/;
print "first match: $1\n";





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





#7
@fruits = ("Apples", "Bannanas", "Brocholi", "Baseball", "Barometer", "Coconuts");
foreach (@fruits){
	$first = $1 if ?(B.*)?;
	$last  = $1 if /(B.*)/;
}
print "First B word: $first\nLast B word: $last\n";






#8
$string = "1-518-274-8365";
print "$1\n" if $string =~ /(\d{3})/;
print "$1\n" if $string =~ /(\d{3})$/;