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


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

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"'