Select Code to Download

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

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

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