#!/usr/bin/perl

use strict;
use warnings;

use Template::Extract;

my $template = <<EOD;
[% FOR records %]
[% ... %]
 OAMPG: [% oampg %]   Extent ID [% extent_id %] on allocation page [% alloc_pg %]
[% END %]
EOD

my $doc = <<EOD;
 OAMPG: 600   Extent ID 608 on allocation page 512
 OAMPG: 128   Extent ID 616 on allocation page 512
EOD

my $template_extract = Template::Extract->new();
my $data = $template_extract->extract($template, $doc);

use Data::Dumper;
print Dumper($data);
print $template;

##</code><code>##

$VAR1 = {
          'records' => [
                         {
                           'alloc_pg' => '',
                           'extent_id' => '608',
                           'oampg' => '600'
                         },
                         {
                           'alloc_pg' => '',
                           'extent_id' => '616',
                           'oampg' => '128'
                         }
                       ]
        };
[% FOREACH records %]
[% ... %]
 OAMPG: [% oampg %]   Extent ID [% extent_id %] on allocation page [% alloc_pg %]
[% END %]

##</code><code>##

$template = <<EOD;
[% FOR records %]
[% ... %]
 OAMPG: [% oampg %]   Extent ID [% extent_id %] on allocation page [% alloc_pg %];
[% END %]
EOD

$doc =~ s/\n/;\n/mg;