my $schtuff = "blah ENDOFLINE blah ENDOFLINE blah ENDOFLINE\n";

open my $DEADEND, ">schtuff.txt" or die 'try again';
{
    print $DEADEND $schtuff;
}
close $DEADEND;


open my $moreSchtuff, "<schtuff.txt" or die $!;
{
        local $/ = 'ENDOFLINE';
	while (<$moreSchtuff>)
	{
	    print $_ . "<-- SHAZAM! properly tokenized!\n";
	}
        
}
close $moreSchtuff;