Hey People!

I ran into some problems with this one yesterday (see my yesterday question)
But I hope you like this one:

#!/usr/bin/perl -w
use strict;$^K=undef;$_=sub{local$/=shift;join"",(split//,$/)[@_]};ope
+n $a,$0 ;@_ = <$a>;
print lc&$_($_[1],42,25,1,40,71,31,16,43,40,37,18,6,71,68,2,6,32,71,37
+,73,8,13,2,6),"\n";
[download]

(Only tested on 5.6)

GreetZ!,

ChOas

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