#!/usr/bin/perl -wl

print / ( \w+ (?: :: \w+ )* ) /x while <DATA>

__END__
Win32::TieRegistry(Delimiter=>"/")
Acme::Beatnik
CGI qw(:all)
Win32::API::Type
DBI
[download]

Makeshifts last the longest.