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