Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        push(@{$HoA{$hash_keys{$_}}},shift(@values));
        }
    }

...
2005,115-00:00:02.028,05-115-00:00:02.028,0,0,1,3,3,11468,35,05-115-00
+:00:02.028,04-115-23:59:52.028,0.000000,4.961763,0.496248,3.320780,0.
+094080,2.519886,0.037647,7.018670,1.290000,0.247917,5.830000,0.045000
+,49,0.735000,7.443989,1.575000,0.125373,0.125373,0.125373,0.125373,0.
+125373,0.125373,5.273542,0.000000,0.137260,2.090138,0.019593,0.019593
+,20.753000
2005,115-00:00:03.036,05-115-00:00:03.036,0,0,1,3,3,11469,35,05-115-00
+:00:03.036,04-115-23:59:53.036,0.000000,4.961763,0.496248,3.320780,0.
+094080,2.519886,0.037647,7.018670,1.275000,0.247917,5.830000,0.045000
+,49,0.735000,7.443989,1.575000,0.125373,0.125373,0.125373,0.125373,0.
+125373,0.125373,5.273542,0.000000,0.138108,2.090138,0.019593,0.019593
+,20.753000
2005,115-00:00:04.094,05-115-00:00:04.094,0,0,1,3,3,11470,35,05-115-00
+:00:04.094,04-115-23:59:54.094,0.000000,4.961763,0.496248,3.320780,0.
+094080,2.519886,0.037647,7.018670,1.290000,0.247917,5.830000,0.045000
+,49,0.735000,7.443989,1.575000,0.125373,0.125373,0.125373,0.125373,0.
+125373,0.125373,5.273542,0.000000,0.137260,2.090138,0.019593,0.019593
+,20.753000

my $a='62696c6c77667269656e6440676d61696c2e636f6d';
while ($a=~m/(^.{2})/s)
{print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}