Perl challenge

Perl is beautiful
It's just that usually people use Perl for some quick reg ex hacks and just throw some ugly code together fast to get the job done. So people just Perl on this.

Perl gives you the option to code however you want. I challenge you to post Perl code that cannot be made beautiful.

($l=join("",<>))=~s/.*\n/index($`,$&)>=$[||print$&/ge;

Challenge accepted OP:

#!/bin/perl -sp0777i<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsj
$/=unpack('H*',$_);$_=`echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1
lK[d2%Sa2/d0$^Ixp"|dc`;s/\W//g;$_=pack('H*',/((..)*)$/)