$_=$-+{}+{@_}.$^T.$.->{$],{$^O.$@.sub{0}->().$)}->{($:.$\)}}->[_].$(->
+[(),\+[]->[$>->{$<}]];$__=<DATA>;;$$.$.++;*l=\sub{push@_,$_ for split
+ /(?:(\d{3}))/m,$__};&$l;_-0-_,++$#_;s|\d+|print(chr)for@_|e;+$`*$';e
+val;__DATA__
0741171151160320971101111161041011140320801011141080320720970991071011
+14010
[download]

Code tags added by davido.