$ cat hello.pl
use re 'eval';
''=~('('.'?'
.'{'.( '`'|'%').("\["^
'-').('`'| '!').('`'|',').'"'
.'#'."\!". "\/".( '['^'.').('['^'(').(
'['^')').'/'.(('`')| '"').('`'|')').(('`')|
'.').'/'.('['^"\+").( '`'|'%').('['^')').('`'
|',').('!'^('+')).( '!'^'+').('['^'+').(('[')^
')').('`'|')') .('`'|'.').('['^'/').('{'^'['
)."'".('`'^'(' ).('`'|'%').('`'|',').('`'|',').
('`'|'/').','.( '{'^'[').('['^',').('`'|'/').("\["^
')').('`'|','). ('`'|'$').'!'."'".';'.('!'^'+').('"').
'}'.')');$:='.' ^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,
='('^('}');$\= '`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';
$/='&'|'@';$,= '['&'~';$\=','^'|';$:='.'^'~';$~='@'|"\(";
$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~=
'*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^
'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!'
;$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=
','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^
'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@'
;$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^="\)"^ '['
;$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*' |((
'`'));$^='+'^'_';$/='&'|'@';$,='['&'~';$\ =','^'|' ;$:
='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'| '.';$,= '('
^'}'; $\='`'|'!';$:=')'^'}';$~="\*"| '`';$^= '+'
^'_';$/='&'|'@';$,='['&'~';$\ =(',')^ '|'
;$:='.'^ '~';$~='@' |"\("; $^=')' ^+
'[';$/= '`'|'.'; $,='(' ^"\}"; $\
=('`')| "\!";$:= "\)"^ "\}"; (
($~))= '*'|'`'; ($^) ='+'
^"\_"; $/=('&')| '@'; ($,)
='['& "\~";$\= ','^ '|';
($:)= '.'^'~' ;$~= '@'|
'('; $^=')' ^'[' ;$/=
'`'| '.' ;$,= '('^
'}'; $\= '`' |((
'!' )); $:= ')'
^(( '}' )); $~=
'*' |(( '`' ))
;( ($^))= ((
(( '+')) ))
^+ "\_";$/= ((
'&' ))|+ "\@"; $,
=(( '['))& '~'; $\=
','^ "\|";$:= '.' ^'~'
;($~)= ('@')|
"\(";$^= ')'^'['$ perl hello.pl
Hello, world!