Select Code to Download

print subtimes($string, 2, qr/(a)/,"<\$1\$1>");

...
    }
    return $newstring.$string;
}