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