#!/usr/bin/perl

my @files = @ARGV;

foreach my $ifile (@files) {
  my $ofile = $ifile;
  $ofile =~ s/V5_3/V5_4/;

  print "mv $ifile $ofile\n";
  system("mv $ifile $ofile");
}
