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