#!/usr/bin/perl
use strict;map{$a++}
('g','r','e','p')
;$a=$a-$a--+$a++;$a++;$b=int
(rand($a));$b++;map{chomp;@INC
=split(/\D/);push(@_,(int($INC
[$b]/$b),int($INC[$b+$a]/$b)))
;}(<DATA>);map{printf("%c",$_)}@_;
__DATA__
L076I146H216a097m218u351
z122p224b294i105a194r342
n110t232i315e101i210s345
s115e202(096s115n220#096
&032c198$096^032e202)096
^032#064?096<010>020\030