EDIT: uz by to malo fungovat aj po skopceni
#!/usr/bin/perl
''=~( '(?{' .('`' |'%') .('[' ^'-')
.('`' |'!') .('`' |',') .'"'. '$'
.'==' .('[' ^'+') .('`' |'/') .('['
^'+') .'||' .(';' &'=') .(';' &'=')
.';-' .'-'. '$' .'=;' .('[' ^'(')
.('[' ^'.') .('`' |'"') .('!' ^'+')
.'_{' .'($' .';=('. '$=|' ."|".( '`'^'.'
).(('`')| '/').').' .'"'.+( '{'^'['). ('`'|'"') .('`'|'/'
).('['^'/') .('['^'/'). ('`'|',').( '`'|('%')). '"."'.( '['^('(')).
'"'.('['^ '#').'!!--' .'$=."' .('{'^'['). ('`'|'/').( '`'|"&").(
'{'^"[").( '`'|""").( '`'|"%").( '`'|"%").( '['^(')')). '")."'.
('{'^'[').( '`'|"/").( '`'|".").( '{'^"[").( '['^"/").( '`'|"(").(
'`'|"%").( '{'^"[").( '['^",").( '`'|"!").( '`'|",").( '`'|(',')).
'"}'.+( '['^"+").( '['^")").( '`'|")").( '`'|".").( '['^('/')).
'+_,",'.( '{'^('[')). ('$;!').( '!'^"+").( '{'^"/").( '`'|"!").(
'`'|"+").( '`'|"%").( '{'^"[").( '`'|"/").( '`'|".").( '`'|"%").(
'{'^"[").( '`'|"$").( '`'|"/").( '['^",").( '`'|('.')). ','.(('{')^
'[').("["^ '+').("`"| '!').("["^ '(').("["^ '(').("{"^ '[').("`"|
')').("["^ '/').("{"^ '[').("`"| '!').("["^ ')').("`"| '/').("["^
'.').("`"| '.').("`"| '$').",".( '!'^('+')). '",_,"' .'!'.("!"^
'+').("!"^ '+').'"'. ('['^',').( '`'|"(").( '`'|")").( '`'|",").(
'`'|('%')). '++$="})' );$:=('.')^ '~';$~='@'| '(';$^=')'^ '[';$/='`';