in reply to Char replacement

substr($str, 0, 1) = '2';

[download]
See. substr() for more info.
HTH

_________
broquaint

In Section Seekers of Perl Wisdom