my @results;
for my $elem ( @data1 ) {
    my ($match) = $elem =~ /(\w\s+\d)/;
    @results = grep { /$match/ } @data2;
}
 print "$_\n" for @results;