substr($x, 4, 1) = '';
# or
substr($x, 4, 1, '');