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