#!/usr/bin/perl -l
print,s/^/_/,s/./$'& z^$&^Z/eg,y/5/o/for($a=o)x80