chomp $string1;
chomp $string2;

##</code><code>##

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