#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
my $twig=XML::Twig->new();
my $xml = qq{<root t="space tab\tnewline\nend"/>};
$twig->xparse($xml);
my $text=$twig->root->att('t');
print "|$text|\n";