note joeface <p> This sets the default line-separator (held in "$/", normally set to "\n") to undef, so that whatever comes in from STDIN (<>) will get slurped up, split on the string "-{103}", and assigned to @sections. </p> <p> A short example... put the following into a script named "test.pl": </p> <code> #!/usr/bin/perl -w use strict; my @sections = split 'FOO', do {local $/; <>}; close *ARGV; print join("\n", @sections); </code> <p> Then, put the following into a file called "test.txt": </p> <code> FOObarFOObarFOObarFOObarFOObar FOObarFOObarFOObarFOObarFOObar FOObarFOObarFOObarFOObarFOObar </code> <p> Then, run the following at the command-line: </p> <code> cat test.txt | ./test.pl </code> 588246 588314