my $self = {};
bless($self, $class);
+ my $encoding = ''; #default
my $data = shift;
- if ($data =~ /^\<\?xml version=\"1.0\"\?\>(.*)$/s){
- $data=$1;
+ if ($data =~ /^\<\?xml version=\"1.0\"(\s+encoding="([\w\-]*)")?\?\>(.*)$/s){
+ $encoding = $2; #don't actually do anything with this yet
+ $data = $3;
}else{
$data =~ s/[^\w\s]/ /g; # yes, we lose stuff
$data = '<?xml version="1.0"?>' .