in reply to rename files in directory with new extenstion
you could just do
And not waste space by bringing all those filenames into an arraywhile(<*.old>){ ($new = $_) =~ s/old$/new/; rename($_,$new); }
$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H; print chr($_-39); # Easy but its ok.
In Section
Seekers of Perl Wisdom