my $before  = "apples/apples_green";
  my $after   = $before;
  my $desired = "apples_green";

  # I tried this, but no go!
  $after =~ s#^(\w+)/$1_#$1_#;

  print "before [$before] after [$after] desired [$desired]\n";