perl -i -ne 'BEGIN { $i = 0; $found = 0; }; if ( !/PATTERN/ && ($i==0) ) { next; } elsif ( /PATTERN/ && ($found==0) ) { $i++; $found++; next  } else { print $_ } ' datei