服务器上出现了一些垃圾邮件问题，在找出并删除了一些Perl和PHP脚本后，我决定检查它们的实际作用，尽管我是高级PHP程序员，但对Perl经验很少，有人可以给我一个建议吗？在这里手写脚本：

http://pastebin.com/MKiN8ifp

（这是一长行代码，脚本称为list.pl）

脚本的开始是：

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

它以很少的非标点字符继续，直到最后：

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