"perlmonks rule!\n"=~/.*?(??{print;$"})/;