This RE doesn't look right, e.g.

```
$ perl -e 'my $mod = "spma::ips!??*&^!\\/$%^"; print "ok\n" if $mod =~ m{^([a-zA-Z_]\w*(?:::[a-zA-Z_]\w*)*)};'
ok
```