if ( $str =~ /^[a-zA-Z0-9]+$/ ) { # $str has only alpha-numberic characters }
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
if ( $str =~ /^[a-zA-Z0-9]+$/ ) { # $str has only alpha-numberic characters }
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/