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