Below is the code i'm using to filter out non alphanumeric charecters... however when
i type....
?!$BOB
yeilds this:
-_3f_21_24bob-
The ?!$ should be stripped away and come back empty, not
_3f_21_24
ANY ideas as to what I'm doing wrong???
I'm asking for an email address.
my $eaddress = "";
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
$eaddress = $buffer;
###############
@list=split(/&/,$eaddress);
$eaddress=$list[0];
@list=split(/\=/,$eaddress);
$eaddress=$list[1];
$eaddress=~tr/A-Z/a-z/; ##changes everything to lowercase !!! THIS
WORKS !!!
$eaddress=~tr/a-z0-9/_/c; ##changes everything but a-z 0-9 to _
print "-$password-";
