our $actions = " ABCDEFG";
my $item = chr(0x37);
my $newitem = join '', map {
    vec($item, 7-$_, 1) ? chr(vec $actions, $_, 8) : ' ';
} 0 .. 7;
print $newitem,$/;

__END__
  BC EFG