$internal_format_string =~ s/\n//g;

##</code><code>##

require Encode;
my $string_in_utf8 = Encode::encode_utf8($internal_format_string);
$string_in_utf8 =~ s/\n//g;

##</code><code>##

$internal_format_string =~ s/\x{0A}//g;