$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 Match
}
if ($theVar =~ /t*e*p/) {
(print "Match Three\n"); # Would Match
}
if ($theVar =~ /[tT]*his/) {
(print "Match Three\n"); # Would Match
}