Berkeley CSUA MOTD:Entry 18378
Berkeley CSUA MOTD
 
WIKI | FAQ | Tech FAQ
http://csua.com/feed/
2024/12/25 [General] UID:1000 Activity:popular
12/25   

2000/6/1 [Computer/SW/Languages/Perl] UID:18378 Activity:high
5/31    #!/usr/local/bin/perl
        @a=(Lbzjoftt,Inqbujfodf,
        Hvcsjt); $b="Lbssz Wbmm"
        ;$b =~ y/b-z/a-z/ ; $c =
        " Tif ". @a ." hsfbu wj"
        ."suvft pg b qsphsbnnfs"
        . ":\n";$c =~y/b-y/a-z/;
        print"\n\n$c ";for($i=0;
        $i<@a; $i++) { $a[$i] =~
        y/b-y/a-z/;if($a[$i]eq$a
        [-1]){print"and $a[$i]."
        ;}else{ print"$a[$i], ";
        }}print"\n\t\t--$b\n\n";
        \_ this is fuckingstupid. -ali
        \_ ali is fuckingstupid. -this
        \_ i'm with ali
                    |
           <--------+
        \_ in this case I AM ali