my @matched_lines;
push (@$matched_lines, $matcher)
  if ($matcher =~ /^.*_theWord$/);