use strict;
use warnings;
my @unv;
my $pos;

while (<DATA>){push @unv,$.-1,$.,$.+1 if /XXXXX/;$pos=(tell DATA)-length $_ unless $pos}

seek DATA,$pos,0;


while (<DATA>) {print unless $.-__LINE__ ~~ @unv}
__DATA__
XXXXX
Aoooo
XXXXX is my name
Boooo
11111
22222
33333
Coooo
XXXXX is what I play
Doooo
44444


# OUTPUT

11111
22222
33333
44444