$line =~ s/[^\S\n]+//g;

##</code><code>##

$line =~ s/[^\S\n]+$//g;