regex help

[Sergio Gonzalez]

Can anyone tell me if i'm doing this right?
#check for dangerous characters

unless ($string =~ /^[\w .-\@:+?!]+$/) {
        print "<B>ERROR, invalid characters used.! Character =
$string</B><BR>";
       exit;
      }

thank you,

Sergio Gonzalez


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