Re: How to reorder a text file

[Cristoforo]

Taken from Re: Split and print hash based on regex

#!/usr/bin/perl
use strict;
use warnings;

open my $fh, '<', \<<EOF;
Title 1
Line of text A
Line of text B
Title 2
Line of text C
Title 3
Title 4
Line of text D
EOF

{
    local $/;
    print reverse <$fh> =~ /(^Title(?:(?!^Title).)*)/msg;
}