perl -e "$x="LanX"; print ($x * 3);" 0