lukasvermeer/combined_words.pl

## combined_words.pl
use strict;
use warnings;

use Data::Dumper;

open(W, "woorden.txt");
my %w;
while (my $line = <W>) {
    chomp($line);
    if (length $line == 4) {
        $w{lc($line)} = 1;
    }
    if (length $line == 7) {
        next unless substr($line,3,1) eq 'r';
        $w{lc($line)} = 1;
    }
}
close(W);

for my $word (keys %w) {
    next unless length $word == 7;
    next unless $w{substr($word,0,4)};
    next unless $w{substr($word,3,4)};
    print $word. "\n";
}
	use strict;
	use warnings;

	use Data::Dumper;

	open(W, "woorden.txt");
	my %w;
	while (my $line = <W>) {
	chomp($line);
	if (length $line == 4) {
	$w{lc($line)} = 1;
	}
	if (length $line == 7) {
	next unless substr($line,3,1) eq 'r';
	$w{lc($line)} = 1;
	}
	}
	close(W);

	for my $word (keys %w) {
	next unless length $word == 7;
	next unless $w{substr($word,0,4)};
	next unless $w{substr($word,3,4)};
	print $word. "\n";
	}