You can modify $/ ( the Perl new line delimiter ) to ..DN: and then slurp each record in as one thing.
In reply to Re: Split file by BioLion in thread Split file by Anonymous Monk