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