$out = "<?xml version="1.0" encoding="utf-8"?>";
@tmp = split /</, $out;
foreach(@tmp) {
  if (substr($_, 0, 1) eq "?") {
    next;
  } elsif (substr($_, 0, 1) eq "!") {
    &more_code;
  }
}