Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

smokemachine

by smokemachine (Hermit)
on Dec 28, 2005 at 16:17 UTC ( #519580=user: print w/ replies, xml ) Need Help??

#!/usr/bin/perl open(AeIoU,$0); $\ = "";#Idiot! while(<AeIoU>){ ;;#enterTheMatr $a[$_=split //, $2]=$1 if/#([^! |^\(])(.*)$/#Ha ;$\=""if 1#,awk }print #'@!.,%# $a[$_] for 0... @a ; # Please!! print;#my Perl! close AeIoU;#Ha $_="" if<D>#ide ;unless(1# perl != 1#Fabula Enc )#reboot now!!! #nadaPodeNosSep {print pack("C* ",qw/97 110 100 111 10/);print}
#!/usr/bin/perl while(<DATA>){s/\s|\n//g; $/.=$_;}while($_=chop$/){ $,.=ord}$\=" "; while( $, =~s/^(\d{2})(\d{2})//){if ($1!=33||$2!=33){$h.= chr abs $1+$2} else{print $h; $h=""}}$\="\n";print #FCO __DATA__ !!4>1492?$%<'!!!664>14((! !2@23C%J*)F#K@!!!.F-F/F%%
#!/usr/bin/perl $c=#home:/home/ $0; #the obscur open(AeIoU,$0); $\ = "";# eioug while(<AeIoU>){ ;#enterTheMatri $a[$_=split //, $2]=$1 if/#([^! |^\(])(.*)$/#Jg #reboot thehost }print #againfg $a[$_] for 0... @a ; #other num print;#nothing. close AeIoU;#JO open(AeIoU,$c); $_=<AeIoU>;#usp chomp ($d=$1) # if /([^\/]+)$/; print " " . $d; ;;print foreach pack("C*",qw/32 104 97 99 107 101 114/);#sfkd print"\n"#tdfsk
open (CRIST ,"<",$ 0);for (<DATA>){chomp;s/^\s*//; $manto.=$_};$manto=~s/\n|^\s+//sg;@ manto=split/[^|]/,$manto;push@crist,(chr scalar(split//) + ((chr 54).(chr 52)))for@manto;my$i;undef$ manto;;;;;while($crist=<CRIST>){;;;;;; chomp;for(split //,$crist){s/[^ \s]/$crist[ $ i %@crist]/x;$i++ ; $ manto.=$_}} print$manto;;;; ;;;;;;;__DATA__ ||||||||||||||| ||| ||||||||||| ||||||||||||||| |||||||||||||| | ||||||||||||| ||||||||||||||| ||||||||||||||| |||| |||||||||||| |||| |||||||||||||

XP chart

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (8)
As of 2014-09-01 14:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (13 votes), past polls