$data =~ y/\n/ /; # This will remove all newlines and replace them with spaces

##</code><code>##

$data =~ s/\s+|\n/ /g;