Not quite sure what you are asking since your data isn't formatted, put <code> and </code> tags around the data and it will appear as you expect.

I'll guess that you want to collect whole lines that have a certain word

my @lines;
while ( my $line = <$input_fh> ) {
    push @lines, $line if $line =~ /WORD/;
}
[download]

If this wasn't your question then, if you reformat your data and explain where I was wrong, we will be better able to help.