Select Code to Download

use strict;
use warnings;
...
{
    print @{ $group };
}

Title 4
Line of text D
...
Title 1
Line of text A
Line of text B