#!/usr/bin/perl -W

use strict;

foreach my $file (<*>){
  if ($file =~ /modB/){
    my @name=split("_", $file);
    my $new_name=$name[1]."_".$name[0]."_".$name[2];
    system("mv $file $new_name");
  }
}
