Prime words: Difference between revisions

</pre>

=={{header|Perl}}==

<lang perl>#!/usr/bin/perl

use strict;

use warnings;

my $pat = join '', grep +(1 x ord) !~ /^(11+)\1+$/, 'a'..'z', 'A'..'Z';

@ARGV = 'unixdict.txt';

print join('', grep /^[$pat]+$/, <>) =~ tr/\n/ /r =~ s/.{1,71}\K /\n/gr;</lang>

{{out}}

<pre>

a aaa age agee ak am ama e egg eke em emma g ga gag gage gam game gamma

ge gee gem gemma gm k keg m ma mae magma make mamma me meek meg q