$mystring = ~s/\n/\r\n/g;