Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl -ni
BEGIN {
...
    if s/HAI WORLD Times ([0-9]+).*/
          "\t\t<exML LOLZ = \"" . unpack(\'a1\', $1) . "\" />"
        /eg;

Select or download this

$replaceString = sub {
    "\t\t<exML LOLZ = \"" . unpack(\'a1\', $1) . "\" />"
...
# time passes

    $array[$elementIdx++] = $replaceString->();