## Slurp the file and break into sections
my @sections = split '-{103}', do{ local $/; <> };
close *ARGV;