Select Code to Download

use strict;
use warnings;
...
print(Dumper($file));
print("[$_]") for $file =~ /(.)/sg;
print("\n");