my $str = q{Foo{the following curly does not end the quote}but the next one does};