s/\b(find)\b/transport_case($1, 'repl')/eig;

sub transport_case {
   ...
}