Select Code to Download

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

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