chomp $line;
$line =~ s/\r//g;

##</code><code>##

$line =~ s/[\r\n]//g;