$string =~ s/ (\d+)/chr eval "0b$1"/egx;