use Data::Dumper;
$Data::Dumper::Useqq= 1;
$txt= "foo\r";
print Dumper $txt;

# $VAR1 = "foo\r";