my $flag = false; my @saved #the saved portion of the file while () { #set the flag to true when we find the word Well if (/Well/) { $falg = true; } if ( $falg ) { push @saved, $_; #$_is the current line in your file } }