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