#!/usr/bin/env perl6

my $dict = '/etc/dictionaries-common/words';

my $fh = open $dict, :r;
my $words = $fh.slurp-rest;
$fh.close;

for $words -> $word {
    say $word if $word ~~ m :i/ amas /;
}