Select Code to Download

foreach my $file (@files) {
    next unless -f "$directory/$file";
    open my $fh, '<', "$directory/$file" or die "Open failed on $file:
+ $!";
    while (<$fh>) {
        next if /^\s$/;        # skip blank lines