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