my @chars = split //, $aXML;

  ...

  foreach my $char (@chars) { ... }