use strict;
use warnings;

use XML::Parser;
use XML::Writer;
use Lingua::Ispell qw(spellcheck);

# change me to the output of 'which ispell'
$Lingua::Ispell::path = '/path/to/ispell';

my $writer = XML::Writer->new();
my $parser = XML::Parser->new(
   Handlers => {
      Init  => \&handle_Init,
      Start => \&handle_Start,
      Char  => \&handle_Char,
      End   => \&handle_End,
      Final => \&handle_Final,
   }
);
$parser->parse(*DATA);

sub handle_Init {
   $writer->xmlDecl('UTF-8');
   $writer->doctype('xml');
}

sub handle_Start {
   my($self,$name,%atts) = @_;
   $writer->startTag($name,%atts);
}

sub handle_Char {
   my($self,$text) = @_;
   for my $r (spellcheck($text)) {
      if ($r->{type} eq 'miss') {
         $text =~ s/$r->{term}/$r->{misses}->[0]/;
      }
   }
   $writer->characters($text);
}

sub handle_End {
   my($self,$name) = @_;
   $writer->endTag($name);
}

sub handle_Final {
   $writer->end();
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE xml>
<xml>
  <stuff class="spelled wrong">
    <item>ys we ave no banans</item>
    <item>els in my hooverkraft</item>
  </stuff>
  <stuff class="spelled right">
    <item>yes we have no bananas</item>
    <item>eels in my hovercraft</item>
  </stuff>
</xml>
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)