my %hash
$hash{$.} = $_ while <>;
##</code><code>##

my @lines = <>;

##</code><code>##

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