use warnings;
use strict;

while (<DATA>) {
    chomp;
    my @cols = split /\s+/, $_, 6;
    print "@cols[1,3,5]\n";
}

__DATA__
     1           F        14             0.06      OPEN
     2           F        216            0.97      CONTACT
     4           F        326            1.47      LEFT
     5           F        232            1.05      MID
     6           F        54             0.24      RIGHT
     7           F        6              0.03      AT
     8           F        6              0.03      AT_GHT
     11          F        184            0.83      5DBLT
     12          F        151            0.68      2P5D
     21          P        21009          94.64     Bin P