Select Code to Download

sub shift_bs{
    %cs0=(
        '0' => '0',
...
    $char2=($c1==1?$cs1{$char}:$cs0{$char});
    return ((shift_bs($c_,$char_st)).$char2);
}

push @src, shift_bs(1,$source);