$ perl -E 'say "match" if "111"=~/(\d).\1/'
match
$