my $word_regex = do {
	open my $wfh, '<:utf8', '/usr/share/dict/words' or die $!;
	chomp( my @words = <$wfh> );
	close $wfh;
	my $re = join '|',
		map {quotemeta}
		sort { length $b <=> length $a or $a cmp $b }
		@words;
	qr/$re/i };
print length($word_regex), "\n";

__END__

964836