I might use this, $string =~ s/[^\w\d.-]+//g, but it's nearly the same thing. I think it's just fine.