Use the input record separator:

local $/ = "A\nB\n";
chomp, print while <>;
[download]

Just make sure your files end in a newline, otherwise the last "A\nB" at the EOF won't be removed.