my $parent = reverse ((reverse $a) =~ /^.+?\\OMEDST\\/g);