#!/usr/bin/perl

use strict;

my $skip_count = 0;

while (<DATA>) {
    if ( $skip_count > 0 ) {
        $skip_count--;
        next;
    }

    $skip_count = 2 if ( /^abc/ );
    print;
}

__DATA__
def
abc
skip_1
skip_2
xyz