My second japh...cheesier than the first.

#!/usr/bin/perl -p
use IO::File;BEGIN 
{$_=q;just another perl hacker;;($;=$~)=~s;.{3}$;IN;ix;open$;,"-|"
 or print&&exit};$_=join(" ",map{$%++%2?$_:qq/\u$_/}(split,"\cJ"));
[download]