my $replacement = sub {
    return unpack("a1", shift);
};

##</code><code>##

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