1
no warnings;$s='$_=$x;tr/';$s.=chr for(97..122);$s.='/';$s.=chr-$_ for(-122..-97);$_='$_=$s;eval';$s.='/;print';$x='Jfhg zmlgsvi Pvio szxpvi,';eval
Just another Perl hacker,