perl -MData::Dumper -E "$Data::Dumper::Useqq = 1; print Dumper qq<a\rb>"
$VAR1 = "a\rb";