$arr[$i] =~ s/^\c[A-Z]//g;