sub context {
	print wantarray ? "List\n" : "Scalar\n";
}


my $string;

$string = "Test ${\~~context()} string";
$string = "Test ${\!!context()} string";
$string = "Test ${\+-+context()} string";
$string = "Test ${\-+-context()} string";
$string = "Test ${\&\&context()} string";