#!perl -p056 $_=chr($%=$%+y/+//&255)