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

##</code><code>##

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