Select Code to Download

open TXT, "<", $file) or die "Cannot open $file: $!";
while(<TXT>) {
...
    s/\s// foreach @array;  # replace space with empty string
    ...
}