in reply to Printing First n Characters of a Scalar
substr $scalar, 0, $n
Makeshifts last the longest.