foreach $node (keys(%current)) {
      if ($current{$node} eq "created") {
         foreach $node2 (keys(%prior)) {
		    foreach ($node2 =~ m/\/.+(\S)/) {
               if (($node =~ m/\/.+(\S)/) eq ($1)) {
			   ($current{$node} = "unknown"), ($prior{$node2} = undef);
}}}}}