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