in reply to Printing First n Characters of a Scalar

substr $scalar, 0, $n

[download]

-b

In Section Seekers of Perl Wisdom