$_ = join("\n", <FILE>);

##</code><code>##

do {local $/ = $/.$/;print join('<p>', <FILE>);};