I thought I'd take a regex approach.
-v (japh)#!/usr/bin/perl do{print(chr($c+=$1>=1000&&1000-$1||$1*1))while/\G(\d{4})/g}for<DATA>; __DATA__ 010600111002000110840065 001300010005101210030013 108200801011001310061076 007210070002000810060013 110200000000000000001002
In reply to japh with re by Velaki
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |