$theVar = "This is a test. Beeeeeeeeeeeeeeep";
if ($theVar =~ /^[tT]his/) {
(print "Match One\n"); # Would Match
}
if ($theVar =~ /^is a /) {
(print "Match Two\n"); # Would Not Match
}
if ($theVar =~ / ^This/) {
(print "Match Three\n"); # Would Not Match
}