s/((?:[A-Z][a-z]*)+\.(?:[A-Z][a-z]*)+)/$name_of{$1}/g;