my $prev = '';
my $skip_next = 0;
while (<>) {
   if (/XXXXX/) {
      $prev = '';
      $skip_next = 1;
   }
   elsif ($skip_next) {
      --$skip_next;
   }
   else {
      print($prev);
      $prev = $_;
   }
}

print($prev);