use XML::Smart ; my $XML = new XML::Smart(q{ test waka waka waka waka waka
text text2
} , XML::Smart::Parser) ; print $XML->data(wild=>1 , noheader=>1) ;