Help for this page
my ($new_source) = $source =~ /<!-- InstanceBeginEditable name="guts" +-->(.*?)<!-- InstanceEndEditable -->/s;
my ($new_source) = $source =~ /<!-- InstanceBeginEditable name="guts" +-->(.*)<!-- InstanceEndEditable -->/;