Select Code to Download

use Data::Dumper;

...

eval $dump;
print "New length after eval: ", length($a), "\n";

Initial length: 2
Dumped code with Useqq = 0:
...
Dumped code with Useqq = 1:
$a = "\r\n";
New length after eval: 2