#!/usr/bin/perl -w
use strict;
$_="

340453   82529053 3614724  4
6     2  5        0      6 0
5     1  0        6      5 3
3     6  4        7      8 4
464652   4414723  6804646  5
2        4        4      4 9
6        8        1      4 7
2        3        5      4 2
5        10650604 9      2 22116460

";s/\s//g;while(s/^(....?)//){
eval'print v'.$1/ord`ls -a ~`}

-- 
#!/usr/bin/perl
$_='10210811111410597110641021111141074610010110';
while(s/^((?:[4-9]\d)|(?:1\d\d)|(?:^..$))//){print pack'w*',$1}
[download]