## 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;