Help for this page

Select Code to Download

Select or download this

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

Select or download this

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