$a='-40300aa03aa01aa02-4-1-2-40503aa-4aaaaa02a-400ab-4-
1-2aa-2aba-404-4-1-2a-400-40503-40505a-403ab-4a-4-4a-1'
;$a=~s/b/-4aaa00/g;$a=~s/a/-3/g;$a=~s/\s//g;for(0..77)
{$b.='.'if(!(($_*2)%3));$b.=4+(substr($a,$_*2,2))}$b=~
s/\./),chr(/g;$b=~s/^\),/print  /;$b=~s/0(\d\d)/$1/g;
eval($b.')');