perl -Mre=debug -le'"lahblahblahblah" =~ /(.?lah)$1{2}/'