#! perl -sw
use strict;

while( <DATA> ) {
	next unless m[two];
	print;
	print scalar <DATA> for 1..3;

}

__DATA__
one
two
three
four
five
six