#!perl -slw
use strict;

my $body = $1 if join('',<DATA>) =~ m[env\s*{(.*)}$]s;
print $body;

__DATA__
env
{
	"{";
	F
	{
		"'{\"\{"
	}
	g
	{
		'}';
	}
}

##</code><code>##

C:\test>244329

        "{";
        F
        {
                "'{\"\{"
        }
        g
        {
                '}';
        }

C:\test>