Select Code to Download

    map { 
        my( $a, $b, $c, $d ) = split //;
        $a => { something => $b, another => $c }
    }