Another way (golf anyone?)

use strict;
use warnings;

open(LE , "<", $le) or die ("Unable to open file $le: $!");
my $width=11;
while (<LE>) {
    my @line;
    printf("%s%${width}s%${width}s%\t\t%.6g\n", @line[0,1,2,4]) 
        if (@line = split) && ($line[4] gt 50);
}
close LE;
[download]