use 5.010;
"" =~ /(?:$str)?/;
while (my ($key, $matches) = each %-) {
    if (@$matches > 1) {
        say "Duplicate name $key";
    }
}