#!perl

use strict;
use warnings;

{
    #  Disable the line ending magic, and slurp the entire string into
    #  a scalar.

    undef $/; 
    my $data = <DATA>;

    #  If we see some text between 'Test:' and 'Test2:' while looking
    #  at a multi-line string, display the resulting capture.

    if ( $data =~ /Test:(.+)Test2:/s ) { 

      print "Found |$1| between titles.\n"
    }   
}

__DATA__
Test:
Blah blah blah 1
Blah blah blah 2
Blah blah blah 5
Blah blah blah 9
Test2:
What is this for?
How is this happning?
Why am I here?
Hello3:
What