sub changeIt {
    my $old = shift;
    return ( $old & 0b11111000 ) | 0b00000101;
}