$xml =~ s#\t(?:.(?))*\n#$node#s;