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