Usage:  
 
perl splthtml.pl intext outtext vartext  
 
   
 
use strict; 
use warnings;  
 
my ($intext, $outtext, $vartext) = @ARGV; 
open my $INTEXT, '<', $intext   or die "Cannot open $intext\n"; 
open my $TEXT,   '>', $outtext  or die "Cannot open $outtext\n"; 
open my $VAR,    '>', $vartext  or die "Cannot open $vartext\n"; 
my $entryid=0; 
while (my $line = <$INTEXT>) { 
    my ($app_name, $text_name) 
        = $line =~ /<string name="(\w+)">([\w ]+)<\/string>/; 
    next if !defined $app_name and !defined $text_name; 
    $entryid++; 
    print {$TEXT} 
         qq(<TextName Name="$app_name">\n) 
        .qq(<EntryId>) . $entryid . qq(</EntryId>\n)  
        .qq(</TextName>\n)  
    ;  
 
    print {$VAR} 
         qq(<START>\n) 
        .qq(<EntryId>$entryid</EntryId>\n)  
        .qq(<Variant>\n) 
        .qq(<Text>$text_name</Text>\n) 
        .qq(</Variant>\n) 
        .qq(</START>\n) 
    ; 
} 
close $INTEXT; 
close $TEXT; 
close $VAR;

  
 
perl splthtml.pl   
 
"C:\Documents and Settings\FredrickS\My Documents\intext.txt"  
 
"C:\Documents and Settings\FredrickS\My Documents\outtext.txt"  
 
"C:\Documents and Settings\FredrickS\My Documents\Vartext.txt"