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

# What will each pattern match do?
#1
$string = "Justin Eric Chris Kevin Emiko Laura";
if ($string =~ m/Chris/){
  print "Yes!\n";
} else {
  print "No!\n";
}






#2
$fruits = "Bananas, oranges, apples, and pears are good for you!\n";
if ($fruits =~ /bananas/){
  print "Yup, bananas are good for you too!\n";
} else {
  print "Apparently, bananas are not good for you\n";
}





#3
print "Enter something:\n";
while (<STDIN>){
  if (/quit/){
    print "Quitting now, goodbye!\n";
    last;
  }else {
    print "You entered: ";
    print;
  }
}





#4 
$slashes = "This / is / a / string / with / many / slashes!\n";
print $slashes;
$slashes =~ s/\//\\/;
print $slashes;
$slashes =~ s#/#\\#;
print $slashes;
$slashes =~ s(many){some};
print $slashes;






#!/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})$/;