To be honest I should have just posted what was packed but it was not obfuscated enough to be unreadable so it just doesn't look right.

$a='use L;$a=L::UserAgenY;$r=HTTP::RV->N(GET,"http://Ns.bbc.co.uk/1/hi
+/world/default.stm");$d=$a->rV($r);if
(Ois_success)MOcontent;while ($x<5) M~s/\<D class="bodytext">(.*?)\<\/
+D>//s;$_=$1ZbrQ)/~/gZQ|^[\s\t]+|\s+$|
\n)//gmx;y/~/\n/;$h[$x++]=$_;}pSjoin "\n","Ns headlines\n",@h;}else{pS
+"Ns is down\n";}';%z=(';s/(?:<',Z,'t->new',Y,equest=>V
,'rint ',S,'.*?>',Q,'$d->',O,'{$b=',M,new=>N,LWP=>L,div=>D,);map($a=~s
+/$z{$_}/$_/g, keys %z);eval($a);
[download]

But at least someone assumed that it was just a simple pack ;) Obviously this was not noticed by someone ;*>