use warnings;
use strict;
use Data::Dumper;
$Data::Dumper::Useqq=1;

my @mylog = <DATA>;
my $myfixedlog = join("ENDOFLINE", @mylog);
print Dumper $myfixedlog;

while ($myfixedlog =~ /([A-Za-z]+)\nENDOFLINE/smg) {
	print Dumper $1;
}

__DATA__
Foo
123
Bar
Quz
Baz

##</code><code>##

$VAR1 = "Foo\nENDOFLINE123\nENDOFLINEBar\nENDOFLINEQuz\nENDOFLINEBaz\n";
$VAR1 = "Foo";
$VAR1 = "ENDOFLINEBar";
$VAR1 = "Quz";