while(<*.old>){
    ($new = $_) =~ s/old$/new/;
    rename($_,$new);
}