Change this:

print FLE $_, $/ for @file;
[download]

To this:

for ( @file ) {
    print FLE "$_\n" if /\S/; # must have at least one non-whitespace
}
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.