Select Code to Download

#!/usr/bin/env perl

...

    $out_fh->say("$1 kco2 $2") while $str =~ /$re/go;

$ perl pm-11154897.pl
Test
...
ner2 8558296/s 3316%  422%  277%  182%   29%   14%   12%    --
----------------------------------------