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