# Find people with the same initial for their first, middle,
# and last names
$theVar = "Lex Lee Luthor";
if ($theVar =~ /(.).* \1.* \1.*/) {
(print "Match One\n"); # Would Match
}
# Find 10 character whatchamacallits
$theVar = "amanaplanacanalpanama";
if ($theVar =~ /(.)(.)(.)(.)(.)\5\4\3\2\1/) {
(print "Match One\n"); # Would Match
}