mifflin:

Howzabout:

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

...roboticus