Select Code to Download

use strict;
use warnings;
...
open FILE, '>', $file or die "Can't write to $file!\n";
print FILE @lines;
close FILE;

use strict;
use warnings;
...
        $lines[$_] = (split( /\s/, $lines[$_] ))[0] . "\n";
    }
}