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

##</code><code>##

$arr[$i]=~ s/\cO//g;