#!/usr/bin/perl

use warnings;
use strict;

my $m = 3;  ## lines in each set
my $j = 2;  ## lines that should get printed

my $i = 0;
while (<DATA>) {
        $i++;
        print;

        ## skip
        if ($i == $j) {
                <DATA> while $i++ != $m;
                $i = 0;
        }
}

__DATA__
foo 1 2 3
foo 2 3 4
foo 4 5 6
bar a b c
bar b c d
bar c d e
baz q w e
baz w e r
baz e r t