while(my $line = <$fh>){
    my @data = split(/\s/,$line,5);
    print $data[4];
}