## turn (unless id contains one or more digits only) return qq(bad id "$id"\n) unless $id =~ /^\d+$/; ## into (if id contains non-digits) return qq(bad id "$id"\n) if $id =~ /\D/;