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

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