perl -Mre=debug -e'"foobar"=~/(.)\1/'