$y = sub($x, "([hg])e.*l(.)", "y\1y123\2y")
