bester:~> perl -le 'print $1 if "Win32::TieRegistry(Delimiter=>\"/\")" =~ /([\w:]+)/;'
Win32::TieRegistry

##</code><code>##

bester:~> perl -le 'print $1 if "Win32::Tie::Reg:istry(Delimiter=>\"/\")" =~ /(\w+(::\w+)+)/;'
Win32::Tie::Reg

##</code><code>##

bester:~> perl -le 'print $1 if "Win32::Tie::Reg:istry(Delimiter=>\"/\")" =~ /(\w+(::\w+)*)/;'
Win32::Tie::Reg