perl -le'$_=`perldoc -T perlfaq4`,s/^.*N;(.*?)E.*$/$1/s,print'
[download]

How:to:forget:when:I:was:young:
join ' had ', (glob'spr{a,e,i,o,u}ng')[2,4];
Now:I:get:in:the:middle:of:
join ' and ', (glob'Y{i,a}n{,g}')[0,-1];
and:I:remember:it:was:a:bang:
seek DATA,0,0;while(<DATA>){last if/DATA/;
chomp&&print/:/?(join$",split':',$_):eval,$/}
__DATA__
[download]

L*

(*)please do not reply with positivist comments about the exact first day of Spring: seasons always start in day 21: the notion is in my mind since..

The wise coder will never pipe grep into awk
For unneeded processes cause neighbours to talk.
The wise coder will never type cat file | foo
Unless they want a UUoCA too.
The wise coder will never discard output from backticks
As that displays ignorance of better tactics.
The wise coder won't shell out to grep, awk or sed
Since no JAPH would be seen doing that, dead.

perl -e'$_="Larry";while(++$_){print"\rPerl is $_";goto(MAGIC)if/Magic
+/}MAGIC:print"\n"';perl -v|perl -pe's\Perl\Magic\magic';perl -e'print
+"[Perl$^V] ";<STDIN>'
[download]

perl -v|perl -pe's\(?<=r)[l]\x\g;s\(?<=pe)r\\gi;s\p(e)\S$1\gi'
[download]

chomp and print join ',',  grep $_, (map length, split /[a,]/), "\n"
 while <DATA>;
__END__
a bug trapped inside
a paper lantern, arid 
aflutter, ablaze
[download]

I love you and I miss you. Have been making some dough with Java for the past few years but I am returning to you with my new endeavour.

My time with Java has been a means to an end and I can now say, with a great degree of certainty, that there is no other language I would rather code with for the rest of my life.

With the same degree of certainty I can also say what a piece of crap Java is.

Can't wait to type your wonderful syntax again, and can't wait to learn 6.

__END__
End your diagnosis' 
Qualification withdrawn
Thin skin moisturize
[download]

contemplate program
in the Brahman Effulgence
while popping the qwf
[download]

So it's no more use'ing warnings
and no more real threads;
no more "if braces"
and no more \*ARGVs;
no more dollars as the sigils;
no more one-liners with `perl -a`;
    I'm free() at last
    I'm undef at last
    I'm lost and found
        ...fetch your stop words, baby... 
        ...cos we're stemming words, tonight...
        ...import nlkt...
        ...everything's gonna...

...be alright?
[download]