Select Code to Download

## Clear out unwanted characters
...
$references =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$ok =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;

## Clear out unwanted characters
tr/|\/\\{}[]()<>*&^%$#;:/ / for
...
    $references,
    $ok;

$email =~ tr/[A-Z]/[a-z]/;

$email =~ tr/A-Z/a-z/;

$email = lc $email;

## Check email address
if (($email ne "") && ($email !~ m/[\w]+@[\w]+\.[\w]+/))

## Check email address
if ( $email ne ""  &&  $email !~ /\w+@\w+\.\w+/ )