$s = substr($s,0,1) . undef . substr($s,3);