Look at Perl Hacker

zhaozj2021-02-08  267

How many ways to print out Just Another Perl Hacker?

Just look at it and you'll find out :-)

%% # joecamel on http://www.perlmonks.com/#note: Requires Perl5.6.0 or better #! / Usr / bin / perl -wuse strict

# A tribute to one of the greatest film of all Time.my (% Primate, $ Monolith, $ EVOLUTION, $ Contact;

$ _ = 'primate-> throw ("bone"); goto; $$ monolith; bless% primate; $ evolution = ~ m /? * /; # / * ? / m ~ = * humanintellect ; $ Discovery = ~ m. [::] >> = <> = <> = <> = (-)].; Require 2001; EXISTS #open $ podbaydoors or die; hal-> start ("Daisy "); Sleep () * '; my @ universe = QW (15 1 6 4 35 1 12 2 23 2 14 1 8 2 0 5 25 1 39 3 7 2); MY $ god; $ monolith =" *** *** "; my @SPATITIME = Split /; /, $ _; while ($ space, $ time) = splice (@ universe, 0, 2)) {MY $ journey = shift @SPATITIME; EVAL" $ Journey; "$ contact = substr ($ @, $ space, $ time); if ($ space! = (" Dimension "= ~ //) 1 4 9)) {Print $ Contact; } MY $ starchild =undact PRINT UC $ STARCHILD

} %% #! / usr / local / bin / perl undef $ /; $ _ = ; y / = map {length} split; print chrock join ('', SPLICE (@ yoda, 0,3)) - 111 while @ yoda; __ DATA__ 00O00O000O00O0000 000O DD000000O0 0DO0000000O0000O00 O00000 00O00000O0O 0000 0O0 O00 O00 00D 0DO 00O0 0O0 00D 000 DO0D00000D 0O00 DOD 000000O00000 000 O00O DD0000D000O0 000 0O00O0000D00DO 0OD D00O000D00O0 00000DO00O0 000 000O 00D0 O0D O00000O0DO0 0O000 OD0D O00O0 0000 DDDO000000 O00O000000 0O000 O00DDO 00000 0O0D00 00O0O00000O 0O00O000000 0O0O00OD00000DDD 00O 0D0 DDD D0O 00O0D 00000O00000000 O00 DO0 D00D00O000 00D00 D0O00 O0000 000O000O00DO 000 00O0 0OD00 O00 000 0O000D000O00O0 000 0D0O000000O00O00 0 0 0O0D 0000 0O0 0O0000000O000O [editorial note: would the author o F this japh * please * stand up?] %% # ieldil from http://www.perlmonks.com/# !/usr/bin/perl -w # Camel CodeUse Strict;

$ _ = 'EV Al ("Seek / 040d ATA, 0, 0;"); Foreach (1..3) {;} my @ Camel1Hump; MY $ Camel; My $ Camel; While ( ) {$ _ = Sprintf ("% - 69s", $ _); my @ DROMEDARY 1 = split (//); if (defined ($ _ = )) {@ Camel1Hum P = Split (//) WHILE (@Dromeda RY1) {MY $ CAMEL1HUMP = 0; My $ CAMEL = 3; IF (Defined ($ _ = Shif T (@ DROMEDARY1)) && // S /) {$ Camel1huP = 1 << $ Camel } $ Camel -; IF (d efined ($ _ = Shift (@ DROMEDARY1)) && // s /) {$ Camel1hup = 1 << $ Camel;} $ Camel -; if (defined ($ _ = Shift (@ Camel1hu) && // s /) {$ Camel1hup = 1 << $ Camel;} $ Camel -; if ($ _ = Shift) && // s /) {$ Camel1huP = 1 << $ CAME L ;; $ Camel. = (Split (//, "/ 040..m` {/ j / 047/134} l ^ 7fx")) [$ CAMEL1H UMP]; $ Camel @ "/ n";} @ Camel1hup = Split (// n /, $ camel); foreach (@ Camel1hup) {chomp; $ Camel = $ _; Y / LJF7 / 173 / 175` / 047 // 061 / 062/063/064/065/066/067/070/066/0678 / JL7F / 175/173 / 047` /; $ _ = Reverse; Print "$ _ / 040 $ camel / n";} foreach (@ c Amel1hup) {Chomp; $ Camel = $ _; Y / LJF7 / 173 / 175` / 047/12345678 /; Y / 12345678 / JL7F / 175/173/0 47` /; $ _ = Reverse; Print "/ 040 $ _ $ Camel / n ";} ';; s // s * // g ;; evAl; EVAL (" seek / 040data, 0, 0; "); undef $ /; $ _ = ; s / / S * // g; () ;; s; ^. * _ ;;; map {eval "Print /" $ _ / "";} /. {4} / g;

__Data__ / 124/1 50/145/040/157/1 46/040/1 41/0 40/143/141 / 155/145/1 54/040/1 51/155 / 141/147 / 145 / 040/151/156 / 040/141/163/16 3/157/143 / 151/141/16 4/151/1 57/156 / 040/167/151/164/1 50 / 040 / 120/145 / 162 / 154/040/15 1/163 / 040/14 1/040/144/162/1414455 / 155/14 1/162 / 153/04 0 / 157/146 / 040/11 7/047 / 122/1 45/15 1/154/1 54/171 / 040/046 / 012/101/16 3/16 3/15 7/143/15 1/14 1 / 16 4/145/163 / 054/040/111/156/14 3/056 / 040 / 125/163/145/14 4/040 / 167/1 51/16 4/1 50/0 40/160 / 145/162 / 155/151/163/163/151/1 57/156/056 %% # meow from http://www.perlmonks.com/

$ _ = Qq.cgt - aa --- Ta ---- T CG CG CG CG CG CG CG CG CG CG CG CG CG CG CG CG CG CG CGT - AA --- TA ---- TA ---- A A --- T G - C G ---- C C ---- GA ---- TC --- GG - C AT CGA - TA --- TG ---- C A ---- Tg ---- C C --- G A - T GC CG G - C A --- T G ---- C G ---- CG ---- CA --- TT - A At CGT - AC- --GA ---- T A ---- T G ---- C A --- T A - T CG Ta T - A G --- C G ---- C C --- -Ga ---- TC --- GG - C CG TAT - AC --- GT ---- A C ---- G A ---- T C --- G G - C GC TA G - C C --- G ---- C G ---- CG ---- CA --- TT - A CG ATG - CA --- Ta ---- T C- --- G C ---- g A --- T A - T CG CG G - C G --- C G ---- C A ---- TT ---- AC --- GG - C CG TAA - TA --- TG ---- C A ---- T A ---- TA G - C C C --- G T ---- A g ---- CG ---- CC --- GT - A AT CGG - CG --- CT ---- A C ---- G ---- C C --- G C - G CG AT T - A C --- G ---- C G ---- CA ---- TT --- AG - C CG TAG - CA- --TG ---- C A ---- Tg ---- c.; @_ {=> c => g => t =>} = 0..3; s; * (/ w). * (/ w). * / n; $ _ {$ - / 9% 2? $ 2: $ 1}; gex; s; (.) (.) (.) (.); chr 64 * $ 1 16 * $ 2 4 * $ 3 $ 4; gex; Eval %% # clinton Pierce # Note: Requires 5.6.0 or Better

'% *%% *%% <> *% ~ *%% *% * *% * *%% * *% *% * <> *% ~%%% *% * * *% *%%%% % *%%%%%%% *%% *%% *%% ^ *%%%% * []%% * *% * *%%%% *%%%%%% * *% * * @ * @% *%%% ^% *% *% * *%% *% <>%%%% *%% ()%%% * * *%% *%% * *% * * * *% * *%% * * *% * * *%% *%% * [] <>%%% *% * * *%% * <>% * *%%% * *% * * * / *% / * * *% / #% * *%%% * / * ////%% / / / /% *% * * * / / || / // /% / / / / /%%% <> *% //% / / | | || //% || // ///% // * * *%% {}% * ---- / / | /% || // / --- / / *%% *% * * / ____ / / | | / / / / ---- / *% / - / | / / / / / / / / '= ~ m /(// / / / / s; $ _ = $ 1; s! [- // | _ // s] !! g;% e = (' % ', 0,' ^ ', 132918,' ~ '=> 18054,' @ '=> 1 9630, '*' => 0b01, '#' => 13099, '[]' => 4278, '<> => 2307,' {} '=> 9814,' () ', 2076); for $ A (Keys% e) {$ E {$ a} = Sprintf "% b", $ e {$ a};} $ y = qq {(}. Join ('|', map "/ q $ _ / e ", Keys% e) .qq {)}; s / $ y / $ e {$ 1} / gex; print pack" b * "

, $ _; %% # kickstart from http://www.perlmonks.com/#note: a slight Valentine Variation :)

$ LOVE = AMOUR. True.cards. Ecstacy.crush .hon.promise.de .votion.partners. Tender.truelovers. Treasure.affection.devotion.care.woo.baby.ardor.romancing.enthusiasm.fealty.fondness.turtledoves .lovers.Sentiment.worship.sweetling.pure.attachment.flowers.Roses.promise.poem; $ love = ~ s / amour / adore / g; @ a = split (//, $ love); $ o. = chr (ORD ($ A [1]) 6). CHR ($ A [3]) 3). $ A [16]. $ A [5]. Chr (32). $ A [0]. $ A [(26 2)]. $ A [27]. $ A [5]. $ A [25]. $ A [8]. $ a [3] .chr (32). $ a [29] $ a [8]. $ A [3]. $ a [62] .chr (32). $ A [62]. $ A [2]. $ A [38]. $ A [4]. $ A [3]. '.'; Print $ O; %% # Chipmunk (Aka Ronald J kimball) #! Perl -l $ _ = {1..28}; $ / = $ _, P, a..z, j, $ "]; Print map {$ _ & 1? $ / -> {_}: $ / -> [$ _ | 1]} (27, 21, 19, 20, 28, 1, 14, 15, 20, 8, 5, 18, 28, 0, 5, 18, 12, 28, 8, 1, 3, 11, 5, 18) %% # Ronald J Kimball $ ~ = '`'; $ _ = $: = $ ~ | '%'; $; = $ ^ = '/' | $ ~; $; ; $ / = $ ~ | "'"; $; ; $:. = $ ;; $ / = $ ;; $ / ; $ _. = '#' | $ ~; $, = $ /; $ _. = "$ / $ ^ $ /" "; $,; = '@' | '*' & ~ '!'; $ _. = "$, $; $ / $ /" "; $ _. = '!.' | $ ~. $ ~; $ _. = "$ ^ $ / $ / $: $ /" ""; $ _. = '@' | ':' & ~ '*'; $ _. = $:; $ _. = $ ^ & '|'; $ _. = $ ". $ /; $ _. = " $ ~ $ ~ $ ~ "| '! # '; $.; $. ;` $ _ $ :,> & $. `; %% #abigailperl -wle 'print" prime "

IF (1 x Shift)! ~ / ^ 1? $ | ^ (11 ?) / 1 $ / '%% # AbigailPerl -wle' print "prime" ing (0 x shift)! ~ m 0 ^ / 0 $ | ^ (/ 0/0 ?) / 1 $ 0 '%% # AbigailPerl -wle' Print "Prime" if ("M" x Shift)! ~ Mm ^ / m? $ | ^ (/ M / M ?) / 1 $ mm '%% # AbigailPerl -wle' $, = ""; print grep {(1 x $ _)! ~ / ^ (11 ) / 1 $ /} 2 .. shift ' %% # abigailperl -wle '(1 x $ _)! ~ / ^ (11 ) / 1 $ / && Print While $ _' %% # Abigailperl -wle '(1 x $ _)! ~ / ^ (11 ) / 1 $ / && Print While $ _ '| perl -pe' init {<>} '%% # AbigailPerl -wle' init {$ _ } (1 x $ _)! ~ / ^ (11 ) / 1 $ / && Print While $ _ '%% # Abigailperl -wle' (1 .1 x $ _)! ~ / ^ (11 ) / 1 $ / && print $ _ 1 While $ _ '%% # Abigailperl -wle' (1 x $ _)! ~ / ^ (11 ) / 1 $ / && print while ($ _ || = 1) %% # abigailperl -wle '(2 x $ _)! ~ / ^ (2 | (22 ) / 2 ) $ / && Print While $ _' %% # Abigailperl -Weprint / New (QQ] $ ^ f $ ^ W783 $ [$% 9889 $ ^ F47]. Qq] $ | 88768 $ ^ W596577669 $ 0096577669 $ ^ w5 $ ^ f3364 $ [$ ^ w $ ^ f $ | 838747 $ [8889739 $ 009 | ^ f673 $% $ ^ w] .qq ] 98 $ ^ F76777 $ = 56]); $ ^ u =

Substr ($] => $ | => 5) * (q.25 .. ($ ^ w = @ ^ v)) => do {print chr $ ^ V% $ ^ u; $ ^ v / = $ ^ U} while $ ^ v! = $ ^ W '%% # Abigailperl -We' print split /( ==(.*) )/s => "just another perl hacker / n"; '%% # Abigailper - MLWP :: UseRagent-MHTML :: Treebuilder-MHTML :: Formattext -Wle'Print (html :: formattext -> new -> format (html :: Treebuilder -> New -> Parse (LWP :: UseRagent -> New - > Request -> New ("get", "http://Work.ucsd.edu: 5141/cgi-bin/http_webster?isindex=perl")) -> content) = ~ / (. * /)) [- / s] addition / s) [0] '%% # AbigailPerl -We' $ _ = Q; 4A75737420616E6F7468657220506B65726C204861636B65726C204861636B65726C204861636B65726C204861636B65726C204861636B65726C204861636B65726C204861636B65726C204861636B65726C204861636B65720AS ;; for (S; s; s; s; s; s; s ; s; s; s) {s; (..) s?; QQ QPrint chr 0x $ 1 and / 161 ssq; excess;} '%% # abigailperl -e' $ _ = Q * 4A75737420506726C204861636B65720A *; for ( $ * = ******; $ ** = ******; $ ** = ******) {$ ** = ******* s *.. * QQ } Print chr 0x $ & and qq} * excess ********} '%% # Abigailperl -We' $ _ = Q? 4a757374206165726204861636572620 861636572620 84861636b65720as?; ??; for (??; (?) X ??; ??) {??; s?; QQ? Print Chr 0x $ 1 and / 161 ss?; excsses; ??} '%% # abigailperl -e' for (s ?? 4a75737420616726204861636b65720as?;?? ?) {S? (..) s / ?? qq /? Print chr 0x $ 1 and q ss / ?? excess} '%% # AbigailPerl -e' $ a = Q 94A75737420616E6F74686572205065726C204861636B65720A9 and $ qq $ / x5f $} = Q 97265646F9 and s g..g; QQ E / X63 / X68 / X72 / X20 / X30 / x78 $ & Eggee; {Eval if $ a = ~ s eqq qprint chr 0x $ & and / x71 / x20 / X71 / X71QEEXCESS} '%% # AbigailPerl -mtime :: julianday -lwe' @ r =

Reverse (m => (0) x99 => cm => (0) x399 => d => (0) x99 => cd => (0) x299 => c => (0) x9 => xc => (0) x39 => l => (0) x9 => xl => (0) x29 => x => ix => 0 => 0 => 0 => V => iv => 0 => 0 = > I => $ == - 2449231 gm_julian_day time); do {until ($ = <# r) {$ _. = $ R [$ # r]; $ = - = $ # r} for $ R [- $ # r];) {}} while $ =; $, = "/ x20"; print $ _ => september => mcmxciii => => => => => => => => %% # abigailsub _'_ {$ _'_ = ~ s / $ a / $ _ /} map {$$ _ = $ z } y, a..z, a..X; * { $ _ :: _ = Sprintf q =% x ==> "$ a $ y". "$ b $ r $ t $ u") = ~ s ~ 0 ~ o ~ g; map _ :: _, U => t => l => $ z; $ _ :: _} = * _; sub _ {print /. * :: (. *) / S} ;; * _'_ = * {chr ( $ b * $ e)}; * __ = * {chr (1 << $ e)}; # perl 5.6.0 broke this ..._ :: _ (r (e (k (c (c (a (h) __ (l (r (e (P (__ (r (e (h (t (o (n (a (__ (t (us (J ()))))))))))))))) ))))))))))))))) # {Qq {= $,; * {; QQ {@ {[(a..z) [qq [002019141140003] = ~ m [..] g]}}} = * _ = SUB {Print / ::: q}} <#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @ {[(A..z) [qq [0020191411140003] = ~ m [..] g]}}} = * _; sub _ {push @_ => /:: (.* )/s and goto & {Shift}} Sub Shift {Print Shift; @_ and goto & { shift}} Hack ("Just", "Perl", "ANO", "ER / N", "Ther"); # YYYYMMDD %% #Abigailperl -w Le '$, = ""; Sub autoload {($ autoload = ~ /:: (. )/) [0];} Print Just (), Another (), Perl (), Hacker ();'% % # AbigailPerl -we '$ @ = "

/ 145/143/150/10/165/163/164/040/141/156/157/164 "" / 150/145/162/040/120/145/162/154 / 040/110/145/143/153/145/162 "" "/ 042/040/076/040/057/144/145/166/057/164/164/171"; $ @ `'%% # AbigailSub f {sprintf $ _ [0], $ _ [1], $ _ [2]} print f ('% C% S', 74, F ('% C% S', 117, F ('% C % S ', 115, F ('% C% S ', 116, F ('% C% S ', 32, F ('% C% S ', 97, F ('% C% s', 0x6e, f ('% C% S', 111, F ('% C% S', 116, F ('% C% S', 104, F ('% C% S', 0x65, F ('% C%) S ', 114, F ('% C% S ', 32, F ('% C% S ', 80, F ('% C% S ', 101, F ('% C% S ', 114, F ('% C% S', 0x6C, F ('% C% S', 32, F ('% C% S', 0x48, F ('% C% S', 97, F ('% C% S ', 99, f ('% C% S ', 107, F ('% C% S ', 101, F ('% C% S ', 114, F ('% C% S ', 10,)) )))))))))))))))))))))))))))))) # Abigailsub f {sprintf '% c% s', $ _ [0], $ _ [1]} print F (74, F (117, F (115, F (116, F (32, F (97, F (110, F (111, F (116, F (104, F (0x65, F (114, F ( 32, F (80, F (101, F (114, F (0x6C, F (32, F (0x48, F (97, F (99, F (107, F (101, F (114, F (10, Q ff))))))))))))))))))))))))))))))))))))))))))))))) # ABIGAIL # Perl 5.6.0 Broke this.% 0 = Map {Reverse Chop, $ _ } ABC, ACB, BAC, BCA, CAB, CBA; $ _ = shift (). Ac; 1WHILE S / (/ D ) ((.)) / ($ 0 = $ 1-1)? "$ 0 $ 3 $ 0 {$ 2} 1 $ 2 $ 0 $ 0 {$ 2} $ 4 ":" $ 3 => $ 4 / n "/ XEG; Print # Tow ERS of Hanoi %% # abigailperl -wlpe '} {$ _ = $.' file # count the number of lines. %% # abigailperl -wlpe '} $ _ = $ .; {' file # count the number of lines. %% # abigailperl -wlpe '} {$ _ = $.} {' File # count the number of lines. %% # abigailperl -wlpe '} {* _ = *.} {' File # count the number of lines. %% # abigailperl -wlne '} for ($.) {Print' file # count the number of lines. %% # abigailperl -wlne '} {print $.'

File # count the number of lines. %% # abigailperl -wlne '} print $ .; {' file # count the number of lines. %% # AbigailPerl -mstrict = '}; Print "Just Another Perl Hacker"; {'-LE1 %% # Abigailsrand 123456; $ - = rand $ _-- => @ [[$ -, $ _] = @ [_, $ -] for (Reverse 1 .. (@ [= Split // => "IGRACVGQ / X02GJCWVHP / X02PL / X02JNMP"))); Print (Map {$ _ ^ ^ "^} @ [)," / n "%% # AbigailPackage Just_another_perl_hacker; subprint {($ _ = $ _ [0]) = ~ s / _ / / g; print} SUB __PACKAGE__ {& Print (__package__)} & __package__ () %% # abigailperl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / / / / / / / / / / / / / / / / / / / / / / /%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%; BEGIN {%% = ($ _ = "" => print "Just Another Perl Hacker / N")} '%% # AbigailPerl -We' Print Q {Print Q {Print Q {P RINT Q {Print Q {Print Q {Print QQ {Just Another Perl Hacker / N}}}}}}}}} '| / perl -w | perl -w | perl -w | perl - W | perl -w | perl -w | perl -w | perl -w %% # abigailecho "==== ======= ==== ======" | Perl -pes / = / J / | perl -pes / == / us / | perl -pes / = / t // | Perl -pes / = / n / | perl -pe / = / o / | Perl -pe / == / th / | perl -pe / = / // | perl -pes / = / p / | perl -pe / = / e / | perl - PES / == / rl / | perl -pe / =

/ H // | Perl -pes / = / A / | Perl -pes / = / c / | perl -pes / = / k / | perl -pes / == / er / | perl -pe =/. ; %% # abigailsub j :: fetch {just} $ _. = 'Print "@ {[map'; SUB J :: Tiescalar {Bless / My $ J, J} Sub A :: fetch {annother} $ _. = '{TIE MY ($ x), $'; SUB A :: Tiescalar {Bless / My $ A, A} SUB P :: Fetch {Perl} $ _. = '_; $ x} QW / JA P' Sub P :: Tiescalar {Bless / My $ P, P} Sub H :: Fetch {HACKER} $ _. = 'h /]} / n "; eval; sub h :: tiescalar {bless / my $ h , H} %% # abigailpackage z; use overload '"" => SUB {$ B ? Hacker: another}; subtiescalar {bless / my $ y => z} Sub fetch {$ A ? Perl: Just} $ = $ x = TIE MY $ y => z; print $ y, $ x, $ y, $ x, "/ n"; # Abigail %% # Abigailsub A :: Tiescalar {Bless / My $ x => a}; package b; @Q [0..3] = Qw / Hacker Perlanother Just /; use overload '"" => sub {pop @Q}; sub a :: fetch {bless / my $ y => b}; Tie My $ Shoe => QQ 'a'; Print "$ Shoe $ Shoe $ Shoe $ Shoe / N"; %% # Abigailsub A :: Tiescalar {Bless / My $ x => 'A '}; package b; @ q = qw / HACKER Perlanother Just /; Use overload' "", SUB {Pop @Q}; Sub A :: Fetch {Bless / My $ y => b}; TIE $ SHOE => 'A'; Print "$ Shoe $ Shoe $ Shoe $ Shoe / N"; %% # Abigailtie $ "=> a; $, =" "; $ / =" / n "; @a = (" " ) x 2; Print Map {"@a"} 1 .. 4; SUB A :: Tiescalar {Bless / MY $ A => a} # YET Another silly japh by Abigailsub A :: fetch {@Q = qw / just another perl Hacker / unless @Q; shift @Q} %% # Abigailsub Camel (^ # 87 = i @ J &&& #] u '^^ s] #' # = {123 {#} 7890t [0.9] 9 @ * `" '***} a &&&} N2O} 00} T324i; h [{e ** ### {r { p =

{** {e ^^^ # '# @ {r' ^ = ^ {L {#} h *** i [0.9] & @ a5` ": & ^; & ^, * & ^ $ 43 # # @@ ####; c} ^^^ &&&k }&&&} # = e ***** []} 'r ####' `= 437 * {#}; :: '1 [0.9] 2 @ 43` "* # == [[[{{],, 1278 @ # @); Print ($ LLAMA = prototype'camel ') = ~ y | {#} $ = ^ * & [0-9] i @ :; `" ',. | | D) && $ LLAMA. "/ N"); %% # AbigailPerl -wle' print prototype sub "just another perl harboer" {}; '%% #Abigailperl -wle 'Sub _ "Just Another Perl Hacker"; Print prototype / & _' %% # abigail split /// => '"; $ {" @_ "} =" / "; split // => evAl Join " " => 1 .. 7; * {"@_"} = Sub {foreach (sort keys% _) {print "$ _ $ _ {$ _}"}};% {"@_"} =% _ = (Just => Another => perl => Hacker); & {% {% _}}; %% # Abigail $ "=" / "; split // => Eval join" "=> 1 .. 7; * {"@_"} = sub {foreach (sort keys% _) {print "$ _ $ _ {$ _}"}};% _ = (Just => another => perl => HACKER ); & {% _}; %% # Abigail $ "=" / "; split $, => Eval join" "=> 1 .. 7; * {" @_ "} = Sub {Foreach (Sort Keys % _) {print "$ _ $ _ {$ _}"}};% {"@_"} =% _ = (Just => another => perl => Hacker; & {% {% _}} ; %% # Abigail $ _ = "/ x3c / x3c / x45 / x4f / x54"; s / << Eot / << Eot / E; Print; Just Anothe R Perl HackeReot %% # Abigail $ _ = "/ x3c / x3c / x45 / x4f / x54"; Print IF S / << Eot / << Eot / E;

Just Another Perl HackeReot %% # Abigail $ _ = "/ x3c / x3c / x45 / x4f / x54" and s / << Eot / << Eot / E and Print; Just Another Perl Hackereot %% # Abigail $ _ = " / x3c / x3c / x45 / x4f / x54 / n "and S / << Eot / << Eot / ee and print;" Just Another Perl Hacker "Eot %% # AbigailPerl -mstrict -We '$ _ =" goto f .print chop; / n = rekcah Lrep rehtona tsuj "; f1: eval '%% # Abigail #! / opt / perl / bin / perl - # no trailing newline inster the last line! begin {$ | = $ sig { __Warn __} = SUB {$ _ = $ _ [0]; y -_- -; print /(.)" $/; seek _, - open (_, " <$ 0"), 2; truncate _, Tell _; close _; exec $ 0}} // rekcah_lrep_rehtona_tsuj %% # Abigail #! / opt / perl / bin / perl - # Remove trailing newline! begin {$ sig {__ warn __} = SUB {$ _ = Pop; Y- _- -; print /".*(.)"/; truncate $ 0, -1 -s $ 0; EXEC $ 0;}} // rekcah_lrep_rehtona_tsuj %% # Abigailbegin {$ ^ h {q} = sub {pop and pop And Print Pop}; $ ^ h = 2 ** 4.2 ** 12} "just"; "Another"; "perl"; "Hacker / N"; %% # Abigailbegin {$ ^ h {q} = Sub {$ _ [1] = ~ Y / S-ZA-IK-O / Q-TC-FE-M / D; $ _ [1]}; $ ^ h = 0x28100} Print "Just Another Python Hacker / N";% % # Abigailbegin {$ ^ h {join "=> (" a ".. "Z") [8, 13, 19, 4, 6, 4, 17]} = Sub {["", "Just", "Another", "Perl", "HACKER / N"] -> [Shift] }; $ ^ H = HEX JOIN "" => Reverse map {int ($ _ / 2)} 0 .. 4} Print 1, 2, 3, 4; %% # Abigailbegin {$ ^ h {join "= > ("a" .. "z") [8, 13, 19, 4, 6, 4, 17]} = Sub {["", "Just", "Another", "Perl", "HACKER"] -> [shift]}; $ ^ h = hex join "=>

Reverse map {int ($ _ / 2)} 0 .. 4} Print 1, 2, 3, 4, "/ n"; %% # abigailbegin {my $ x = "knuth health" {My $ x = "knUth health" H {integer} = Sub {MY $ y = shift; $ _ = substr $ x => $ y & 0x1f, 1; $ y> 32? Uc: lc}; $ ^ h = hex join "=> 2, 1, 1, 0, 0} PRINT 52, 2, 10, 23, 16, 8, 1, 19, 3, 6, 15, 12, 5, 49, 21, 14, 9, 11, 36, 13, 22 32, 7, 18, 24; %% # AbigailPrint V74.117.115.116.32; Print V801.114.32; Print V80.97.99.108.32; Print V72.97.99.107.101.114.10; %% # Abigailprint 74.117.115.116.32; print 97.110.111.116.104.101.114.32; print 80.101.114.108.32; print 72.97.99.107.101.114.10; %% # Abigailprint v74.117.115.116.32, v97.110.111.116.104.101.114.32 , v80.101.114.108.32, v72.97.99.107.101.114.10; %% # Abigailprint 74.117.115.116.32, 97.110.111.116.104.101.114.32, 80.101.114.108.32, 72.97.99.107.101.114.10; %% # . Abigailprint v74.117.115.116.32.97.110.111.116.104.101.114 v32.80.101.114.108.32.72.97.99.107.101.114.10;. %% # Abigailprint 74.117.115.116.32.97.110.111.116.104.101.114 32.80.101.114.1 08.32.72.97.99.107.101.114.10; %% # Abigailmap {$ { chr} = chr} map {$ _ => $ _ ^ ORD $ "} $ = $] .. 3 * $ = / 2; Print "$ J $ USS $ T $ E $ R $ P $ E $ R $ L $ H $ A $ C $ K $ E $ R / N"; %% #Abigailperl -we '$; = $ "; $; {Just => another => perl => Hacker =>} = $ /; print%;' %% # abigail $; # a lone dollar? = $"; # PoD? $; # The return of the lone dollar? {Just => another => perl => Hacker =>} # bare block? = /; # More pod? Print%;

# No right operand for%? %% # Abigail @; = split // => "joel, preach sartre knuth / n"; $; = CHR 65;%; = map {$; => $ _} 0 22, 13, 16, 5, 14, 21, 1, 23, 11, 2, 7, 12, 6, 8, 15, 3, 19, 24, 14, 10, 20, 18, 17, 4, 25 PRINT @; [@; {a..z}]; %% # Abigail $ _ = "/ 112/165 / 163/1648 / 141/155/1628/120/145" "/ 143/153/145/141/143/153/145" AND & JAPH; SUB JAPH {Print "@_" and return if pop; split // D / AND japh} %% # AbigailSub _ {$ _ = shift and y / b-yb-y / a-yb-y / xor! @ _? EXIT PRINT: Print and Push @_ => Shift and goto & {(Caller (0)) [3 ]}} Split // => "KSVQTBUF FBSODPMU / NI FLSI" xor & _ %% # Abigail: $: = ~ s: $ ": Just $ & Another $ &:; $: = ~ s :: Perl $" Hacker $ & :; ChOP $:: Print $: #:%% # Abigail:; $: = ~ s: -: ANOTHER Perl Hacker:; chop $: $: = ~ y: :: D; print $:; %% # abigail:; $: = ~ s: - :; another perl Hacker:; chop $: $: = ~ y:; :: D; Print Just. $: %% # AbigailPerl -LE 'S [$,] [JOIN $, (Split $, ($! = 85)) [(q..................... 19313505]) = ~ m [..] g] E and y [yibp] [hjkp] and print '%% # abigailperl -wle' Eval {Die ["Just Another Perl Hacker"]}; print $ {$ @ @ @ @ @ @ @ @ @ a d } [$ # {@ $ @}}] '%% # AbigailPerl -We' Eval {Die ["Just Another Perl Hacker / N"]}; Print $ @ @} [$# @ @ @} }] '%% # AbigailPerl -wle' Eval {Die ["Just Another Perl Hacker"]}; print $ {@ @}} [{@ {@ @}}}] '%% # AbigailperL - We 'Eval {Die ["Just Another Perl Hacker / N"]}; Print $ {@}} [$ # {@ {$ {@}}}]'

%% # abigailperl -wle 'Eval {Die [[QQ [Just Another Perl Hacker]]} ;; Print $ {$ {@}} [} {@ {{@}}}]} [$ @}}}]} [$ @}}}]} # {{@ {$ {@}}} [$ # {@ {@ @}}}]}] '%% # Abigail $ _ = "/ nrekcah lrep rehtona tsuj"; MY $ Chop; $ chop = Sub {print chop; $ chop}; $ chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ) -> () -> () -> () -> () -> () -> () -> () - > () -> () -> () %% # AbigailPerl -We '$ | = 1; $ _ = "Just Another Perl Hacker / N"; Print Substr $ _ => 0, 1 => "" While $ _ && Sleep 1 => 1 '%% # Abigail ($; $ _, $ |, $ /) = ("/ @ / x7fy ~ * kde ~ Box * zoxf * bkiaox", "x25, 1," / r "); {vec ($ _ => 1 $" => $ ^ f << $ ^ f) = ORD ($ / ^ substr $; => $ "= int RAND 24 => 1); Print && SELECT $, $, $, $ | / ($ | TR / / / C); Redo if Y / / /> $ ^ f ** 2}; %% # Abigail ($; $ _, $ |, $ /) = ("/ @ / x7fy ~ * kde ~ Box * zoxf * bkiaox", "#" x25, 1, "/ r"); s /./ /; {vec ($ _ => 1 $ "=> 8) = ORD ($ / ^ Substr $; => $" = int RAND 24 => 1); Print && SELECT $, $, $, $ | / ($ | TR / # / / c); redo if Y / # //}; Sleep 1; %% # Abigail $ = - = 4 * $ |; {print $ "x - $ ==>" / @ / x7fy ~ * kde ~ Box * zoxf * bkiaox / r " ^ $ / x24if! SELECT $, $, $,, JOIN Q =. ==> $ ^ w => $ |; $ = && redo} sleep $ |; %% # abigail @ _ = map {[$ ! , $ _ ^ $ /]} split $? "/ @ / @ / @ / @ / @ * bkiaox"; $ / = "/ r"; $ | = $ *; do {($ #, $ =) = (Rand @_, rand @_); @_ [$ #, $ =] = @ _ [$ =

, $ #]} for ($ * .. @ _); for $: ($ |) {for ($ | .. @ _- $:) {@_ [$ _- $ | |, $ _] = @ _ [$ _ => $ _- $ *] if $ _ [$ _] [$ 篯 <$ _ [$ _- $ *] [$ 芣; print map {$ _- > [$ |]} @_; SELECT $? $? $? 0.1}} Print $ / %% # Abigail @ _ = Map {[$! => $ _ ^ $ /]} split $?> " / @ / x7fy ~ * kde ~ Box * zoxf * bkiaox "; $ / =" / r "; $ | = $ *; do {($ # => $ =) = (Rand @ _ => Rand @ _); @_ [$ #, $ =] = @ _ [$ =, $ #]} for ($ * .. @ _); for $: ($ |) @ _- $ |) {for $ | .. @ _- $: {@_ [$ _- $ |, $ _] = @ _ [$ _ => $ _- $ *] if $ _ [$ _] [$?] <$ _ [$ _- $ *] [$ 芣; Print map {$ _-> [$ |]} @_; select $? $? $? "$ [. $ |"}} Print $ / %% # Abigailbegin {print "just"} check {print "another"} init {print "perl"} End {print "Hacker / n"} %% # abigailperl -wle'print "牉圪牉圪 釉 纶 撑"^" / X80 "x24 '%% # abigail my $ qr = qr / ^. (; ). ? 1 |; Just Another Perl Hacker; |;;. $ /; $ Q = ~ s / $ qr //g; Print $ QR, "/ n"; %% # Abigailuse lib sub {($ /) = split //./ => pop; print $ "}; evAl" Uses "|| evAl "Uses" || evAl "use perl" || evAl "use harke"; %% # alex gough (alex@rcon.org) #! / usr / bin / perluse quantum :: Entanglement QW (: default: complex) $ lGUAGE = Entangle (1, 'Python', 1 / I, 'C', I * I, 'Perl', 1 / i ** 2, 'Java', I ** 5, 'C #'); P Rint "Just Another $ Language Hacker, / N" if $ language EQ 'Perl'; %% # john porter Eval {62-> lzropcwjoxyup_yugpxcxbyu ()}; $ @ = ~ s / "(. *?) "/" ss "/; print ((split //, $ @) [Map {ORD ($ _) - 62} split //, $ 1],", / n "); %% # casey westmy $ html; $ html. = $ _ while ; $ html = ~ s / [^] <

([^ //]) / '<'. CHR (ORD ($ 1) -32) / GES; $ HTML = ~ S // N // GS; $ HTML = ~ S / ^ //; $ HTML = ~ S / {2,3} / SPC / g; $ html = ~ s / // g; $ HTML = ~ S / SPC / / g; $ HTML = ~ S / <([^ //]) / '< '.chr (ord ($ 1) -1) / ge; print join "/ n", join (' ', ($ html = ~ m / (?: <(^ //]) | ()) / g )), ''; # Formatting__end__ Type Some HTML INTO A variable .and You set it's value . amazing!
you don't have a perl enabled browser :-( Shame  Perl forever!
quote this text: perl. Live it, love it, learn it. perl. Live It, love IT, Learn it. Perl is the only cure to your headaches