Select Code to Download

#!/usr/bin/perl -w
use strict;
...
               #    print join "\t", @result;
               },
});

Benchmark: running Regex, Unpack, each for at least 10 CPU seconds...
     Regex:  9 wallclock secs (10.44 usr +  0.00 sys = 0.44 CPU) @ 198
+59.10/s (n=207329)
    Unpack: 11 wallclock secs (10.17 usr +  0.00 sys = 0.17 CPU) @ 333
+12.29/s (n=338786)