Select Code to Download

# example of form:
# Name: __________
...
# Telephone: __________
# etc.
#  [Search]

if( $name =~ /\Q$pattern_name\E/i
and $address =~ /\Q$pattern_address\E/i
and $telephone =~ /\Q$pattern_telephone\E/i) {
    print "matched\n";
}

if( (not $pattern_name or $name =~ /\Q$pattern_name\E/i)
and (not $pattern_address or $address =~ /\Q$pattern_address\E/i)
and (not $pattern_telephone or $telephone =~ /\Q$pattern_telephone\E/i
+) ) {
    print "matched\n";
}