Help for this page
print FLE $_, $/ for @file;
for ( @file ) { print FLE "$_\n" if /\S/; # must have at least one non-whitespace }