>perl -le"$x = 'x' x 5; print $x"
xxxxx

>perl -le"$x = ( 'x' x 5 )[0]; print $x"
xxxxx

>perl -le"$x = ( ('x') x 5 )[0]; print $x"
x

##</code><code>##

>perl -le"$x = ('x') x 5; print $x"
xxxxx