in reply to
Replacing characters in a string
This should do it:
s/(.{3})..(.*$)/$1AB$2/
[download]
But somehow I think you may have other criteria. Check out
How (Not) To Ask A Question
Cheers,
Sweetblood
Comment on
Re: Replacing characters in a string
Download
Code
In Section
Seekers of Perl Wisdom