Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Fun with one keyword

by eyepopslikeamosquito (Archbishop)
on Sep 21, 2003 at 06:02 UTC ( [id://292965] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    BEGIN{$^H=2097152}$_="(?\173\160\162\151\156\164'\112\165\163\164\040\
    +141\156\157\164\150\145\162\040\120\145\162\154\040H\141\143\153\145\
    +162\012'\175)";/$_/;
    
  2. or download this
    ''=~("(?{".('}_).} "*}_} }./}(}_ }}_, (}_+}_,*"'&
    ~'/-  +   *,+ <  + :- /:-   << :-  @'|
    '  ``   @     `` `   @  ` `  `   ')."})");
    
  3. or download this
    use Acme::EyeDrops qw(sightly);
    print sightly( { SourceString => "Just another Perl hacker,",
                     Print        => 1,
                     Regex        => 1 } );