for (split /\.xml/,$data) {
    print $_ , ".xml\n";
}