perl -e 'print scalar( ($x, $y ) = ( 42, 101, 202 ) ); print "\n$x\n$y\n";'

##</code><code>##

perl -E 'say scalar(() = ($a, $b, $c))'