Select Code to Download

#! perl
use strict;
...
    print "$_\n" for map{ (split)[ 2 ] } split "\n", $1;
}gsex or warn 'No match';;

C:\test>perl -n0 junk9.pl junk2.dat
1.1136
1.3392
117.4979
0.9929