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

##</code><code>##

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

##</code><code>##

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";
}