「Perl」一个brainfuck 语言解释器的混乱代码版本

RT，下面代码出自没写过几行Perl 的吾辈之手，不过效果还不错——乱的一塌糊涂。

估计你已经明白为什么有“国际C语言混乱代码大赛”而没有“国际Perl语言混乱代码大赛”了=。=

如果不清楚brainfuck 的解释器是什么可以看看这篇文章，这是一个相同的C++ 版本 =w=

@_=@ARGV;exit if
@_<1;open FILE,shift;
undef$/;$_=<FILE>;s/h|n//g
;@_=split//;$_=$~=0;@~=();while
($_<@_){$_[$_]=~/>/&&++$~;$_
[$_]=~/</&&--$~;$_[$_]=~
/+/&&++$~[$~];$_[$_]
=~/-/?--$~[$~]:1;
$_[$_]=~/./
&&printf'%c',$~
[$~];$_[$_]=~/,/?$~
[$~]=getc:1;if($_[$_]
=~/[/){$__=1;$~[$~]?++
$_&&next:1;while($__){++$_;$_
[$_]=~/[/?++$__:1;$_[$_]=~
/]/&&--$__;print$_[$_
],$_;}--$_;next;}if
($_[$_]=~/]/){
$__=1;$~[$~]?(
//////////,qw.enjoy brainfuck ;p.,<<___________________________
%%%%%%%%%By iSpeller%%%%%%%%%%%
___________________________
):++$_&&next;while($__){--
$_;$_[$_]=~/]/&&++$__;
$_[$_]=~/[/&&--$__
;}next;}++$_;}

下面的测试代码出自ArchWiki 的Arch is the best 项目，用于输出"Arch is the best!"

++>++++++>+++++<+[>[->+<]<->++++++++++<]>>.<[-]>[-<++>]
<----------------.---------------.+++++.<+++[-<++++++++++>]<.
>>+.++++++++++.<<.>>+.------------.---.<<.>>---.
+++.++++++++++++++.+.<<+.[-]++++++++++.

Perl 是唯一的一门在RSA 加密前后看起来一样的语言。
-- Keith Bostic