#!perl

use 5.12.0;
use warnings;

local $/ = "1313";

while (<DATA>) {
    say qq{Found line: $_};
} 

__DATA__
qwerty
qwerty
qwerty
qwerty
qwerty
qwerty