Select Code to Download

for (split(/:/, $$pattern)) {

    # make sure it starts and ends with spaces
...
    }
    $out .= "\n";
}

while (/(.)/g) {
        $camel .= $1 if $1 ne " ";
}

tr/ //d;
$camel .= $_;