while (<>) {
       $_ =~ s/\^M//;
}