$var =~ s/\r//g;