#!/usr/bin/perl
use XML::Parser;
our $str;
my @arr;
my $file = shift;
my $parser = new XML::Parser:: 
    Handlers =>{
        Char => sub { 
        $str .= $_[1];
        return; #clear return value
        }
    }
    ;
$parser->parsefile($file);