$ time perl -e '$_ = "a" x 1e6; $_ .= "a"; 1 while /./g'

real	0m35.868s
user	0m35.857s
sys	0m0.008s