my ($good_stuff) = $stuff =~ /^START$(.*?)^END$/ms;

##</code><code>##

my $stuff = <<EOF;