Re: Help with negative look ahed

[PrakashK]

In your particular case, regexes seem to be overkill. Since the text has "ITEM " only in headings and nowhere else, and that seems to be where you want to split on, it's easier to use split:

use File::Slurp qw<slurp>;

my $text = slurp("a5927574.txt");
my @items = split "ITEM ", $text;

# print first item, as it is
print shift @items;

# prepend "ITEM " to the rest and print
print "ITEM $_" for @items;