use strict; use warnings; open( INPUTFILE, ">WordNetTest2.txt" ) or die "$!"; print "Extracting adjectives\n"; my $previous_line; while () { if ( $_ =~ m/^Adj:/ ) { print OUTPUTFILE $previous_line, $_; print "found one!\n"; } $previous_line = $_; }