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

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

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

for my $form (@forms) {
    print Dumper($form);

    if ($form->{name}    =~ /Name:\s*?$m_name/ &&
        $form->{address} =~ /Address:\s*?$m_address/ &&
        $form->{phone}   =~ /Telephone:\s*?$m_phone/)
    {
    	print "Match\n";
    } else {
        print "Not match\n";
    }
}