# File as an array of lines:
@matching_lines = grep { /$reg_exp/ } @lines_to_search;