$buf =~ m/(\n*)$/s;

##</code><code>##

$buf =~ m/\n*$/s;