perl -pi -e "substr($_,$-[0],$+[0]-$-[0], 'replacepattern')
   if (/searchpattern/ && ++$match==3)" filename