for (@array) {
    s/HAI WORLD Times ([0-9]+).*/
        '\t\t<exML LOLZ = "' . $replacement->($1) . '"/>'
        /eg;
}

##</code><code>##

for (@array) {
    s/$searchString/$replaceString/g;
}