>perl -le"print( scalar( $a=5 ) );"
5

>perl -le"print( scalar( ($a)=5 ) );"
1