my $string = qq{start @{ [ $obj->middle() ] } end};