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