return if !exists $allowed{$_} or $seen{$_}++ foreach split /,/, $s;