# 1 # requires no special invocation, uses 'e','v','a','l' %!=('!'=>$|+@{[$"]},'@'=>$|+@{[$",$"]});($;{'!'})=$::{'"'}=~/\*.(.)/ ;$;{'^'}=$;{'#'}=$;{'!'};$;{'~'}=++$;{'^'};$;{'='}=++$;{'^'};$;{'(' }=++$;{'^'};$;{'!'}=($;{'*'}=++$;{'^'}).$;{'!'};$;{'*'}++;$;{'*'}++ ;$;{'='}.=++$;{'*'};($;{'@'})=$::{'"'}=~/\*..(.)/;$;{'&'}=$;{'@'};$; {'&'}++;$;{'&'}++;$;{'!'}.=++$;{'&'};($;{'*'})=$::{'@'}=~/\*(.)/;$; {'#'}=$;{'*'}.$;{'#'};($;{'&'})=$::{'$'}=~/\*...(.)/;$;{'@'}.=$;{'&' };$;{'%'}=$;{'$'}=++$;{'&'};$;{'('}=$;{'%'}.$;{'('};$;{'*'}=++$;{'&' };$;{'@'}=$;{'*'}.$;{'@'};$;{'#'}.=$;{'&'};$;{'$'}=$;{'*'}.$;{'$'}. $;{'&'};$;{'*'}++;@;=$;{'('}=~/(.)(.)/;$;{'('}=$;[$|].++$;{'*'}.$;[ $!{'!'}];$;{'='}.=$;{'*'};@;=$;{'@'}=~/(.)(.)(.)/;$;{'@'}=$;[$|].$; {'*'}.$;[$!{'!'}].$;[$!{'@'}];$;{'~'}=++$;{'*'}.$;{'~'};$;{'@'}.=++ $;{'*'};@;=$;{'~'}=~/(.)(.)/;$;{'~'}=$;[$|].++$;{'*'}.$;[$!{'!'}];@; =$;{'!'}=~/(.)(.)(.)/;$;{'!'}=$;[$|].++$;{'*'}.$;[$!{'!'}].$;[$!{'@' }];($;{'*'})=$::{'"'}=~/\*(.)/; eval $;{'~'}.$".$;{'^'}.'{'.$;{'!'}.$".$; {'$'}.'}';$;{'^'}->($;{'~'}.$".$;{'%'}.'{'.$;{'('}.$".$;{'$'}.'}');$; {')'}=$;{'^'}->($;{'='}.'($=+'.$;{'^'}->($;{'('}.'"#"').')');$;{'^'} ->($;{'~'}.$".$;{'&'}.'{'.$;{'@'}.'@'.$;{')'}.'}');$;{'^'}->($;{'~'} .$".$;{'*'}.'{'.$;{'#'}.'{'.$;{'&'}.'(@'.$;{')'}.'.$");'.$;{'$'}.'@' .$;{')'}.'}@'.$;{')'}.'}');$;{'*'}->($",$",$",$",$",$",$",$",$",$") # 2 # call using: perl -e 'sub e{eval"@_"}do"./foo"' # where 'foo' is the filename where the code is stored %!=('!'=>$|+@{[$"]},'@'=>$|+@{[$",$"]});($;{'!'})=$::{'"'}=~/\*.(.)/ ;$;{'^'}=$;{'#'}=$;{'!'};$;{'~'}=++$;{'^'};$;{'='}=++$;{'^'};$;{'(' }=++$;{'^'};$;{'!'}=($;{'*'}=++$;{'^'}).$;{'!'};$;{'*'}++;$;{'*'}++ ;$;{'='}.=++$;{'*'};($;{'@'})=$::{'"'}=~/\*..(.)/;$;{'&'}=$;{'@'};$; {'&'}++;$;{'&'}++;$;{'!'}.=++$;{'&'};($;{'*'})=$::{'@'}=~/\*(.)/;$; {'#'}=$;{'*'}.$;{'#'};($;{'&'})=$::{'$'}=~/\*...(.)/;$;{'@'}.=$;{'&' };$;{'%'}=$;{'$'}=++$;{'&'};$;{'('}=$;{'%'}.$;{'('};$;{'*'}=++$;{'&' };$;{'@'}=$;{'*'}.$;{'@'};$;{'#'}.=$;{'&'};$;{'$'}=$;{'*'}.$;{'$'}. $;{'&'};$;{'*'}++;@;=$;{'('}=~/(.)(.)/;$;{'('}=$;[$|].++$;{'*'}.$;[ $!{'!'}];$;{'='}.=$;{'*'};@;=$;{'@'}=~/(.)(.)(.)/;$;{'@'}=$;[$|].$; {'*'}.$;[$!{'!'}].$;[$!{'@'}];$;{'~'}=++$;{'*'}.$;{'~'};$;{'@'}.=++ $;{'*'};@;=$;{'~'}=~/(.)(.)/;$;{'~'}=$;[$|].++$;{'*'}.$;[$!{'!'}];@; =$;{'!'}=~/(.)(.)(.)/;$;{'!'}=$;[$|].++$;{'*'}.$;[$!{'!'}].$;[$!{'@' }];($;{'*'})=$::{'"'}=~/\*(.)/;$;{'~'}.$".$;{'^'}.'{'.$;{'!'}.$".$; {'$'}.'}';$;{'^'}->($;{'~'}.$".$;{'%'}.'{'.$;{'('}.$".$;{'$'}.'}');$; {')'}=$;{'^'}->($;{'='}.'($=+'.$;{'^'}->($;{'('}.'"#"').')');$;{'^'} ->($;{'~'}.$".$;{'&'}.'{'.$;{'@'}.'@'.$;{')'}.'}');$;{'^'}->($;{'~'} .$".$;{'*'}.'{'.$;{'#'}.'{'.$;{'&'}.'(@'.$;{')'}.'.$");'.$;{'$'}.'@' .$;{')'}.'}@'.$;{')'}.'}');$;{'*'}->($",$",$",$",$",$",$",$",$",$")