# Perl 6 code
    my $goodnames = /@names/;