in reply to file case change
Does this give you a hint ? :
GreetZ!,
print "profeth still\n" if /bird|devil/;
rename($file, lc($file)) or print "Couldn't rename $file: $!\n";
GreetZ!,
- ChOas
print "profeth still\n" if /bird|devil/;
In Section
Seekers of Perl Wisdom