sub incHex {
	s{
		( [0-9a-f] ) # Any hex digit followed by
		( f* )\b     # (always) trailing (optional) 'f's
	}{
		sprintf("%x", 1 + hex $1) . '0' x length($2);
	}iex
		for  @_;
}