if ($string =~ /^([-\@\w.]+)$/) { $string = $1; } else { die "Bad data in $string"; }