$test =~ s/[^a-zA-Z0-9\.\-\_\@]//g;
$test =~ s/\.\.//g;