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

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