if ($s =~ m{^([-\w \@(),./]+)$}) {