s/pattern/doit($1,$2,$3)/e;