>perl -E"$_ = 'abc'; say +$_;"
abc

>perl -E"$_ = [qw( a b c )]; say @{ +$_ };"
abc

##</code><code>##

>perl -E"sub f { say( ( (wantarray && 'list' ) // 'void' ) || 'scalar' ); } +f(); $_=+f(); ()=+f();"
void
scalar
list