#!perl -slw
use strict;

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

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