$params{city}    =~ /^[-\w'\.\*]*$/ and do_stuff() ; 

##</code><code>##

$params{city}    =~ /^[\w'\.\*-]*$/ and do_stuff() ;