print<<R x10
perlmonks rule!
R
##</code><code>##

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