$s =~ s/(sneak)/replace_third($1)/eg;