my @sections = split '-{103}', do{ local $/; <> };