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