Select Code to Download

  $aXML =~ s@</@{endtag}@gs;
  $aXML =~ s@/@{bs}@gs;
  $aXML =~ s@{endtag}@</@gs;
...
  ...

  while ($aXML =~ m@\[([^\[\]]*?)\]@gs) { ... }

  my @chars = split //, $aXML;

  ...

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