Ah, right you are about me not storing the original $opt{name}; nor returning it unchanged if it is a single word...

And another trick, for getting that last period, is simply join('.',@abbr,'').