c:\test>perl -e"BEGIN{$/=\10}" -pe" s[8901][abcd]" fred > joe

c:\test>type joe
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890