Select Code to Download

    if( length ${ $_[ 0 ] } > 2) {
        my ($pre, $mid, $post) = /^(.)(.*)(.)$/;
        recurse( $mid );
        ${ $_[ 0 ] } = "$pre ( $mid ) $post";
    }