my $passports = q:to/ENDOFPASSPORTS/.split(/\n\n/);
pid:341708492 hgt:190cm
byr:1988 hcl:#888785
ecl:hzl
iyr:2015 eyr:2029

iyr:2020 byr:1968
ecl:gry
eyr:2030 hcl:#1976b0
cid:127 pid:701862616
hgt:161cm
ENDOFPASSPORTS

gather {
	for $passports.kv -> $i, $passport {
		take $i if all(<byr iyr eyr hgt hcl ecl pid>) ∈ gather {
			if $passport ~~ /[(\w ** 3)':'\S+]+ % \s+/ {
				.take for $0>>.Str;
			}
		};
	}
}.elems.say