tr/\r\n//d for my $string = do { local $/; };