# List of Directories within ACE Directory Template
my @ACETmpltDirs = ("./dataoper/stagecdm.aceprd/stagepgms");
my $ACETmpltDir;

# ACE Environment
my $ACEEnvironment = "aceprd";

# Deal with each Directory within ACE Directory Template
foreach $ACETmpltDir (@ACETmpltDirs) {
   if (index($ACETmpltDir,".$ACEEnvironment") == -1) {
      print "no env: $ACETmpltDir";
   }
   elsif (index($ACETmpltDir,".$ACEEnvironment") != -1) {
      print "env    : $ACEEnvironment\n";
      print "w/ env : $ACETmpltDir\n";
      $ACETmpltDir = ~s/$ACEEnvironment//g;
      print "w/o env: $ACETmpltDir\n";
   }
}