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

##</code><code>##

my ($new_source) = $source =~ /<!-- InstanceBeginEditable name="guts" -->(.*)<!-- InstanceEndEditable -->/;