Is this doing what it is suppose to and how efficient? rule - valid chars A-z0-9 _ - . - cannot start with a digit - cannot start with a space - must be greater than 3 in length
sub isValidChars
{ my ($z) = @_;
return length($z) > 3 && $z !~ /^[\d\s]/ && $z =~ /^[\w.]+$/
}
thanks,
-rkl
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
