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