($j='000011-02001-84065013001005-12-03013-
82080-11013-06-76072-07002008-06013-68013-
82080-11013-06-76072-070020')=~s/\n//g;$x=
length($j);for($i=0;;$i+=3){$x=(substr($j,
$i,3)+$x);$_.=(chr($x));last if $x == 46;}
print;