use Template::Extract;
my $extract = Template::Extract->new();
my $template = '<!--BEGIN -->[% mydata %]<!--END -->';
my $content = '<!--BEGIN -->blah blah blooh blooh<!--END -->';
my $data = $extract->extract($template, $content);

use Data::Dumper;
print Dumper $data;