## Clear out unwanted characters
$fstname =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$lstname =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$adda =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$addb =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$city =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$state =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$zip =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$email =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$phone =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$residence =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$yardtype =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$landlord =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$preadda =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$precity =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$prestate =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$prezip =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$alone =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$household =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$vet =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$pet =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$petname =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$currentpets =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$previouspets =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$references =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;
$ok =~ s/[\|\/\\}{\[\]\(\)\*&\^%\$\#<>;:]/ /g;


##</code><code>##

## Clear out unwanted characters
tr/|\/\\{}[]()<>*&^%$#;:/ / for
    $fstname,
    $lstname,
    $adda,
    $addb,
    $city,
    $state,
    $zip,
    $email,
    $phone,
    $residence,
    $yardtype,
    $landlord,
    $preadda,
    $precity,
    $prestate,
    $prezip,
    $alone,
    $household,
    $vet,
    $pet,
    $petname,
    $currentpets,
    $previouspets,
    $references,
    $ok;


##</code><code>##


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


##</code><code>##

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


##</code><code>##

$email = lc $email;


##</code><code>##


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

##</code><code>##

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