Select Code to Download

my $data = do { open my $fh, '<', $fn or die $!; local $/; <$fh> };
my ($test) = $data=~m{ ^\w+:\n (.+?) (?: ^\w+:$ | \z ) }msx;