eval eval '"'.
('['^"\+").(
('[')^ ')').('`'|')').
('`'|'.'). ('['^'/').('{'^'['
).'\\'.'"' .('{'^ '+').('`'|'%').('['^
')').('`'|',').('{'^ '[').('`'|')').(('[')^
'(').('{'^'[').("\{"^ '/').('`'|'(').('`'|'%'
).('{'^'[').(('{')^ '(').('`'|'(').('`'|')').(
'['^'/')."\!". '\\'.'\\'.('`'|'.').'\\'.'"'.
';'.('!'^'+'). '"';$:='.'^'~';$~='@'|'(';$^=')'
^'[';$/='`'|'.' ;$,='('^'}';$\='`'|'!';$:=')'^"\}";
$~='*'|"\`";$^= '+'^'_';$/='&'|'@';$,='['&'~';$\="\,"^
'|';$:='.'^'~'; $~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^
'}';$\='`'|'!' ;$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|
'@';$,='['&'~' ;$\=','^'|';$:='.'^'~';$~='@'|'(';$^="\)"^
'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`'
;$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~';$~=
'@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'
^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|'
;$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\=
'`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['
&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^"\[";$/= '`'
|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^ =((
'+'))^'_';$/='&'|'@';$,='['&'~';$\=(',')^ "\|";$:= '.'
^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.'; $,='('^ '}'
;($\) ='`'|'!';$:=')'^'}';$~='*'|'`' ;$^='+' ^((
'_'));$/='&'|'@';$,='['&"\~"; $\=','^ '|'
;$:='.'^ '~';$~='@' |"\("; $^=')' ^+
'[';$/= '`'|'.'; $,='(' ^"\}"; $\
=('`')| "\!";$:= "\)"^ "\}"; (
($~))= '*'|'`'; ($^) ='+'
^"\_"; $/=('&')| '@'; ($,)
='['& "\~";$\= ','^ '|';
($:)= '.'^'~' ;$~= '@'|
'('; $^=')' ^'[' ;$/=
'`'| '.' ;$,= '('^
'}'; $\= '`' |((
'!' )); $:= ')'
^(( '}' )); $~=
'*' |(( '`' ))
;( ($^))= ((
(( '+')) ))
^+ "\_";$/= ((
'&' ))|+ "\@"; $,
=(( '['))& '~'; $\=
','^ "\|";$:= '.' ^'~'
;($~)= ('@')|
"\(";$^= ')'^'['
To run this program, just copy and paste the code into a text file, for example: pits.pl.
Then just run it like this:
perl pits.pl