foreach (<<'-1-', <<'-2-') {
<template>
  foo                = Yes
  bar                = 0
  blort              =
  home_url           = http://www.foo.com/some/really/long/url
</template>
-1-
<template>
  foo                = Yes
  bar                = 0
  blort              =
  home_url           =
http://www.foo.com/some/really/long/url
</template>
-2-
    if(m[^<template>(.*?)\s*^</template>]sm) {
        (undef, my %data) = split /\s*^\s*(\w+)\s+=[^\S\n]*\n?/m, $1, -1;
        use Data::Dumper;
        print Dumper \%data;
    } else {
        print "No match\n";
    }
}