my @values = split //, $A;
map { if ($_ ne "" ) {print "[$_]\n";} } @values;