#!/usr/bin/perl -w
while (defined($nextname = <v???????.ps>)) {

  $filein = $nextname;
  $fileout = $filein;
  $fileout =~ s/.ps/.eps/;
  printf("filein is $filein;  fileout is $fileout\n");

 `mv $filein $fileout`;
}