use strict;
use warnings;

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

my $string;

$string = "Test @{[context()]} string";
$string = "Test ${\context()} string";
$string = "Test ${\~~context()} string";

__OUTPUT__
List
List
Scalar