Select Code to Download

use warnings;
use strict;
...
chomp( $in = <$fh> );
close $fh;
print Dumper($in);  # "x\ry"