Does this give you a hint ? :

rename($file, lc($file)) or print "Couldn't rename $file: $!\n";
[download]

GreetZ!,

ChOas

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