$val =~ s/^(.*)\n/$1/;

##</code><code>##

$val =~ s/\n.*//s;