my @matched_idxs = grep {$lines[$_] =~ /$re/} 0 .. $#lines;