#!/usr/bin/perl
s/(.{4})/print (chr($c+=$1>=1000&&1000-$1||$1*1))/eg for (@_ = <DATA>)
__DATA__
01060011100200011084006500130001000510121003001310820080101100131006107600721007000200081006001311040002