[MacPerl] character classes

[Monty VanEmmerik <montyv@swfla.infi.net>]

I am working on a script that double checks a scalar to make sure there is
an "@"
present.
Can someone help me with the correct way to do this?
Thanks!


MAIN:
{
$test= "montyv\@swfla.infi.net";
if ($test eq \w,'\@',\w) {  	 #THIS LINE HERE!
print "This is an email address!\n";
}
else {
print "This is not an email address!\n";
}
}

Monty VanEmmerik
montyvan@swfla.infi.net
montyv@swfla.infi.net