$str =~ s/(\d) (\d)/frob($1, $2)/eg