With the help of some community members I have successfully used a script to parse a huge html file and add alternate spellings. However the substitution was too greedy and gave me unuseable inflection data "infl=". I need to limit the copy to only the value attribute (head word of a dictionary entry). Below is the the original version, the version created by the script, the desired output, and the script. Is there anyone who can suggest a change to this script that will prevent it from creating incorrect inflection data?

Original version

     
<idx:short><div height="4"><a name="83"/><div><idx:orth value="abänder
+n" infl="abändere,abänderen,abänderest,abänderet,abändern,abänderst,a
+bändert,abänderte,abänderten,abändertest,abändertet,abgeändert,abzuän
+dern"/>
[download]

Result given from the script

    
  <idx:short><div height="4"><a name="83"/><div><idx:orth value="abänd
+ern" infl="abändere,abänderen,abänderest,abänderet,abändern,abänderst
+,abändert,abänderte,abänderten,abändertest,abändertet,abgeändert,abzu
+ändern"/>
<idx:orth value="abaendern" infl="abaendere,abaenderen,abaenderest,aba
+enderet,abaendern,abaenderst,abaendert,abaenderte,abaenderten,abaende
+rtest,abaendertet,abgeaendert,abzuaendern"
[download]

Desired output

   
<idx:short><div height="4"><a name="83"/><div><idx:orth value="abänder
+n" infl="abändere,abänderen,abänderest,abänderet,abändern,abänderst,a
+bändert,abänderte,abänderten,abändertest,abändertet,abgeändert,abzuän
+dern"/><idx:orth value="abaendern"/>
[download]

Script as it currently is

#!/usr/bin/perl

use strict;
use HTML::Parser;

# set up a hash containing the umlauted characters and their replaceme
+nts:
my %replace = (
    "\xC4" => 'Ae', "\xCF" => 'Ie', "\xD6" => 'Oe', "\xDC" => 'Ue',
    "\xE4" => 'ae', "\xEF" => 'ie', "\xF6" => 'oe', "\xFC" => 'ue',
);
my $um = join '', keys %replace;

binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
$/ = undef;
my $input = <>;
my $output = '';

my $p = HTML::Parser->new( api_version => 3,
                           start_h => [ \&fix_umlaut, 'tagname, attr, 
+text' ],
                           default_h => [ \&copy, 'text' ],
    );
$p->empty_element_tags( 1 );
$p->parse( $input );

print $output;

sub fix_umlaut
{
    my ( $tagname, $attr, $text ) = @_;
    $output .= $text;
    if ( $tagname eq 'idx:orth' and $$attr{value} =~ /[$um]/ ) {
        $text =~ s/([$um])/$replace{$1}/g;
        $output .= $text;  # repeat the tag with modified umlauts
    }
}

sub copy
{
    $output .= $_[0];
}
[download]