#!/usr/bin/perl
#trimwords.pl
#This script selects only the five-letter and six-letter words from a list of words

use warnings;
use strict;

open FH1, "all_words.txt" or die $!;
open (FH2, '>>trimmed_words.txt') or die $!;

my @all_words = <FH1> ;

my $word_size;

while (@all_words){
	my $word_size = length($_);
	unless ($word_size==5 or $word_size==6){
	shift(@all_words);
}}

print FH2 @all_words