Hey!,

I think it`s shorter, and I got no spaces...

But I don`t know how to count...

sub g{%_=map{abs($_[-1]-$_[$_]),$_}(0..@_-2);$_[$_{(sort{$a<=>$b}keys%
+_)[0]}]}
[download]

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;