my $str = "ABCDE";
print join(",",split(//,$str));