$ perl -MData::Dumper -e 'print Dumper("Hello,\rWorld!")'
World!';'Hello,
$ perl -MData::Dumper -e '$Data::Dumper::Useqq=1; print Dumper("Hello,\rWorld!")'
$VAR1 = "Hello,\rWorld!";