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