#!perl -p
/p/&&s/outgo/incom/