RosettaCodeData/Task/Middle-three-digits/Perl-6/middle-three-digits-2.pl6

for [\~] ^10 { say "$_ => $()" if m/^^(\d+) <(\d**3)> (\d+) $$ <?{ $0.chars == $1.chars}> / }