p6.p6

$*OUT.write: do given "/tmp/sample.input".IO.slurp: :bin {
    my $out := buf8.new;
    my int $decode = 0;
    my $buf;
    for $_ -> int $_ {
        if $_ == 37 { $decode++ }
        elsif $decode {
            $buf ~= .chr;
            if $decode++ == 2 {
                $out.push: parse-base $buf, 16;
                $decode = 0;
                $buf = '';
            }
        }
        else { $out.push: $_  }
    }
    $out
}