Select Code to Download

while ($string =~ qr(...)) {
    $string = qq($1'$2);
}

$string = join('_',
    map {
...
        : $_
    } split( q{_}, $string )
);