use strict;
use warnings;
use Data::Dumper;

my @forms = (
    { name => 'Roger',
      address => 'Melbourne',
      phone => '12345',
    },
    { name => 'Roger',
      address => '',
      phone => '12345',
    },
    { name => 'Roger',
      address => 'Melbourne',
      phone => '54321',
    },
);

my $m_name = 'Roger';
my $m_address = '';     # means don't care
my $m_phone = '12345';

for my $form (@forms) {
    print Dumper($form);
    
    my ($t_name, $t_address, $t_phone) =
        taint_fields($m_name, $m_address, $m_phone);

    if ($form->{name}    =~ /$t_name/ &&
        $form->{address} =~ /$t_address/ &&
        $form->{phone}   =~ /$t_phone/)
    {
    	print "Match\n";
    } else {
        print "Not match\n";
    }
}

sub taint_fields {
    return map { $_ ||= '.*' } @_;
}