use strict;
use warnings;
use Data::Dumper;
use Config::General;

my %config = ParseConfig(\*DATA);

for (keys %{$config{template}}) {
   if (/^http/) {
      $config{template}{home_url} = $_;
      delete $config{template}{$_};
      last;
   }
}

print Dumper \%config;
__DATA__
<template>
  foo                = Yes
  bar                = 0
  blort              = 
  home_url           =
http://www.foo.com/some/really/long/url 
</template>