my $skip;
while (<>) {
    next
        if $skip--;
    if( /mypattern/ ) {
        $skip= 3;
    } else {
        print "Have line '$_'";
    };
};