eval { 62->lZRopcwjoXyup_yuGpXcxbyu() }; $@ =~ s/"(.*?)"/"ss"/; print((split//,$@)[map{ord($_)-62}split//,$1],",\n"); -- John Porter ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe