# $re is the pattern to match
my @next_lines;
while (<FILE>) {
    push @next_lines, scalar(<FILE>) if /$re/;
}