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