my %seen =  map { $_ => 1 } split /\n/, $match;
my @r = keys %seen;