if you really want to burn some cpu cycles use:

$x="1234567890asdfg";
while (length ($x) > 10) {chop($x)};
print $x;
[download]

but otherwise use substr()