#!/usr/bin/perl
use strict;
foreach my $dir (glob("20*/??/??/pgi")){
    my $newdir = $dir;
    $newdir =~ s/pgi/nvidia/;
    #print "mv $dir $newdir\n";
    `mv $dir $newdir`;
}

foreach my $dir (glob("20*/??/??/mesh")){
    my $newdir = $dir;
    $newdir =~ s/mesh/nag/;
    if(-d $newdir){
	print "Cannot mv $dir $newdir, it is already present\n";
    }else{
	`mv $dir $newdir`;
    }
    #print "mv $dir $newdir\n";
}

foreach my $dir (glob("20*/??/??/grid")){
    my $newdir = $dir;
    $newdir =~ s/grid/nag_debug/;
    if(-d $newdir){
	print "Cannot mv $dir $newdir, it is already present\n";
    }else{
	`mv $dir $newdir`;
    }
    #print "mv $dir $newdir\n";
}