Validate String w/required period

[perl]

I'm trying to validate if a string contains \w and required atleas one
period (.)

This one check but does not require a period. Can someone change it please?

sub isValidDomain { return shift =~ /^[\w\.]{3,}$/ }

thanks,
-rkl

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]