Select Code to Download

use strict;
use warnings;
...
open my $fh, ">", "results.txt" or die $!;
say $fh $_ for grep { length } @result;
close $fh;