Select Code to Download

use Modern::Perl;

open my $FH, '<', '/home/jack/Desktop/Perl_file.txt' or die "Could not
+ open file: $!";
...
}

close $FH;

print map substr($_, 0, 2),  grep  m/\S/,  <$FH>;