while($f=<*.old>){rename $f, substr($f,0,-3).'new'}