Philippe Bruhat brought to my attention that someone is selling shirts on Redbubble with my prizewinning obfuscated Perl program. (This is not a complaint.) Unfortunately the code is illegible in the catalog pictures.

Here it is though:

@p=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print

(It fits exactly into four lines of 77 characters each, perfect for a Usenet signature…)

https://www.redbubble.com/i/t-shirt/Just-Perl-things-by-sa1x/55822417/lrcw.XYZ

@mjd @p what's the output supposed to be? I don't know any perl