http://www.perlmonks.org?node_id=528871


in reply to Re: 2, 2, 2, 3, 7, 22, 83, ...
in thread 2, 2, 2, 3, 7, 22, 83, ...

If they had said 'dates' instead of 'bananas' there would be numerous adult-content filters that would find that very offensive.

You could, of course, s/banana/date/ig.

emc

" When in doubt, use brute force." — Ken Thompson

Replies are listed 'Best First'.
Re^3: 2, 2, 2, 3, 7, 22, 83, ...
by turo (Friar) on Feb 09, 2006 at 08:31 UTC

    aaaaaahhhh!!
    I was very innocent (until now)


    dudes, you are going to quit me XP, for this ...
    but here we go:

    sub create_reader_correct_context { if ( defined $filter ) { s/bananas/dates/ig } else { if (not $reader_innocent) { s/camel/jenna jameson/gi } } } create_reader_correct_context(wget(node=528165));
    sorry, i couldn't resist :-P

    perl -Te 'print map { chr((ord)-((10,20,2,7)[$i++])) } split //,"turo"'