#include <iostream>
#include <map>
#include <vector>
#include <algorithm>
#include <string>
#include <queue>
#include <iomanip>
#include <set>
#include <unordered_map>

#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

using namespace std;

#define rep(i,n) for(int i=0,i##_len=(n);i<i##_len;++i)
#define reps(i,n) for(int i=1,i##_len=(n);i<=i##_len;++i)
#define rrep(i,n) for(int i=((int)((n)-1));i>=0;--i)
#define rreps(i,n) for(int i=((int)(n));i>0;--i)
#define rept(n) for(int ______i=((int)(n));______i>0;--______i)
#define repi(itr, ds) for (auto itr = ds.begin(); itr != ds.end(); itr++)
#define ALL(x) (x).begin(),(x).end()
#define SZ(x) ((int)(x).size())
#define ZERO(a) memset(a,0,sizeof(a))
#define BIT(n) (1LL<<(n))
#define UNIQUE(v) v.erase(unique(v.begin(),v.end()),v.end());

// vector
template <typename T>
istream &operator>>(istream &is, vector<T> &vec) {
    for (T &x : vec) is >> x;
    return is;
}
// pair
template <typename T, typename U>
ostream &operator<<(ostream &os, pair<T, U> &pair_var) {
    os << "(" << pair_var.first << ", " << pair_var.second << ")";
    return os;
}
// vector
template <typename T>
ostream &operator<<(ostream &os, const vector<T> &vec) {
    os << "{";
    for (int i = 0; i < vec.size(); i++) {
        os << vec[i] << (i + 1 == vec.size() ? "" : ", ");
    }
    os << "}";
    return os;
}
// map
template <typename T, typename U>
ostream &operator<<(ostream &os, map<T, U> &map_var) {
    os << "{";
    repi(itr, map_var) {
        os << *itr;
        itr++;
        if (itr != map_var.end()) os << ", ";
        itr--;
    }
    os << "}";
    return os;
}
// set
template <typename T>
ostream &operator<<(ostream &os, set<T> &set_var) {
    os << "{";
    repi(itr, set_var) {
        os << *itr;
        itr++;
        if (itr != set_var.end()) os << ", ";
        itr--;
    }
    os << "}";
    return os;
}
#define DUMPOUT cout
void dump_func() {
    DUMPOUT << endl;
}
template <class Head, class... Tail>
void dump_func(Head &&head, Tail &&... tail) {
    DUMPOUT << head;
    if (sizeof...(Tail) > 0) {
        DUMPOUT << ", ";
    }
    dump_func(std::move(tail)...);
}
#ifdef LOCAL_
#define dump(...)                                                              \
    DUMPOUT << "  " << string(#__VA_ARGS__) << ": "                            \
            << "[" << to_string(__LINE__) << ":" << __FUNCTION__ << "]"        \
            << endl                                                            \
            << "    ",                                                         \
        dump_func(__VA_ARGS__)
#else
#define dump(...)
#endif

typedef long long int lli;
typedef pair<int, int> ii;
typedef priority_queue<int, vector<int>, greater<int> > heapq;
int dx[4]={1,0,-1,0};
int dy[4]={0,1,0,-1};
struct aaa{
    aaa(){
        cin.tie(0); ios::sync_with_stdio(0); cout<<fixed<<setprecision(20);
    };
}aaaaaaa;

const lli MOD = 1000000007LL;

inline lli mod_add(lli x, lli y) {
    return (x + y) % MOD;
}
inline lli mod_mul(lli x, lli y) {
    return (x * y) % MOD;
}
#define int long long int
signed main() {
    string S; cin >> S;

    int kABC[100001], kAB[100001], kA[100001];
    kABC[0] = 0; kAB[0] = 0; kA[0] = S[0] == 'A' || S[0] == '?';
    int n = S[0] == '?' ? 3 : 1;
    reps(i, S.size() - 1) {
        char c = S[i];
        if (c == '?') {
            kABC[i] = mod_mul(kABC[i - 1], 3);
            kAB[i] = mod_mul(kAB[i - 1], 3);
            kA[i] = mod_mul(kA[i - 1], 3);

            kABC[i] = mod_add(kABC[i], kAB[i - 1]);
            kAB[i] = mod_add(kAB[i], kA[i - 1]);
            kA[i] = mod_add(kA[i], n);
            n = mod_mul(n, 3);
        } else {
            kABC[i] = kABC[i - 1];
            kAB[i] = kAB[i - 1];
            kA[i] = kA[i - 1];
            switch (c) {
                case 'A':
                    kA[i] = mod_add(kA[i], n);
                    break;
                case 'B':
                    kAB[i] = mod_add(kAB[i], kA[i - 1]);
                    break;
                case 'C':
                    kABC[i] = mod_add(kABC[i], kAB[i - 1]);
                    break;
            }
        }
        dump(c, n, kA[i], kAB[i], kABC[i]);
    }

    cout << kABC[S.size() - 1] << endl;
}


Measured memory_bytes: 2880