#!perl -w use strict; use vars qw/$n/; $_ = join 'e', split 'm', join '"', split 'j', join 's', split 'z', join 'n', split 'f', join ' ', split 'x', join '',map{chr}split'00', join '', map{$_ eq '000'?'0 00':$_} map{$n++ % 2?'0' x $_ :$_} split '0', ;# split '1', eval and die; __END__ 112020114020101050201010202011602012030101060207402011702012202011602012030650201010202011102011602010104020101090201140201203080301010902011402010108020120307202097020990201010702010109020114020120308702010104020111020120301010602059