Select Code to Download

use strict;
use warnings;
...

    print "$result\n";
}

#!/usr/bin/env perl 
use strict;
...
my $SpaceChar = ' ';
my $result = (split ($SpaceChar, $line, 5))[4];
print "$result\n";