my $s = "blah, blubb\r";