#!/perl/bin/perl.exe 

$_ = qq/ 

   07040  8   0  50803      0804  03020  6       0
     5    0   7  0          8  0  7       0     9 
     0    80407  02060      9080  2030     2   0
     8    0   0  0          6 0   9         0 8
     0    2   0  70603      0  2  07020      6

             0506070705060908020302
  
/;

$m=$_;$_=~s/\s*//g;@ps=split(/;*/,$_);@even=grep$i++%2,@ps;
for(0..((@even/2)-1)){$string.=chr($even[$cnt++].$even[$cnt++]);}
print"$m\n\t\t$string";