my (@search); my $query = "perl"; open(FILE, "myfile.txt"); flock(FILE, 1); my @lines = ; close(FILE); foreach my $lines(@lines){ chomp($lines); push(@search, $lines) if grep { /$query/ } $lines; }