Select Code to Download

use Data::Dumper;
$Data::Dumper::Useqq= 1;
...
print Dumper $txt;

# $VAR1 = "foo\r";