How can I extract <%doc> content from Mason?

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

use Text::Balanced qw( extract_multiple extract_tagged );

my $file = 'test.mason.txt';
my $contents;
{
    local $/;
    open my $fh, $file
        or die "Unable to open $file for reading, $!n";
    $contents = <$fh>;
    close $fh;
}

my @extracted = extract_multiple( $contents, [ sub { extract_tagged( $_[0], '<%doc>', '</%doc>', '.*?(?=<%doc>)'); } ], undef, 1 );

s!</?%doc>!!g for @extracted;

print "@extractedn";