sub buk_s {
    my @c;
    $c[ $_ ] = $_ for unpack 'C*', $_[ 0 ];
    pack 'C*', grep defined, @c;
}