perl -le 'my $c=$^X . " -le \" sub a{(\\\$a)=\@_;\\\$a=~tr/A-Za-z/N-ZA-Mn-za-m/;\\\$a;} my \@f=\(\\\"unpxre\\\",\\\"whfg\\\",\\\"nabgure\\\",\\\"crey\\\"\);print ucfirst(a(\\\$f[1]).\\\" \\\".a(\\\$f[2]).\\\" \\\".a(\\\$f[3]).\\\" \\\".a(\\\$f[0]));\"";do{eval(exec($c))};