Hi,
Why don't you just unpack???

#!/usr/bin/perl
$a = '059057034037063107105003046039039036107063035046';
$lag = "a3" x ((length $a)/3);
@nums = unpack $lag, $a;

foreach(@nums)
        {
        print;
        print "\n";
        }
[download]

SiG

perl -le 's ssSss.s sSsSiss.s s$sSss.s s.$s\107ss.print'