$theVar = "This is a test";
$_ = "This is a test";
if ($theVar =~ /is a tes/) {
(print "Match One\n"); # Would Match
}
if (/is a tes/) {
(print "Match One\n"); # Would Also Match
}
if ($theVar =~ /is not a tes/) {
(print "Match Two\n"); # Would Not Match
}