s/\n{2,}/\n/g;

##</code><code>##

s/\s+/ /g;

##</code><code>##

$text=join("\n",(split(/\n+/,$text))[0..4])