#!/usr/bin/perl -w

use strict;

my @sections = split 'FOO', do {local $/; <>};
close *ARGV;

print join("\n", @sections);

##</code><code>##

FOObarFOObarFOObarFOObarFOObar
FOObarFOObarFOObarFOObarFOObar
FOObarFOObarFOObarFOObarFOObar

##</code><code>##

cat test.txt | ./test.pl