$input =~ s/\n/\r\n/gs;