#include<bits/stdc++.h>
using namespace std;
using Int = long long;


template<Int MOD = 1000000007>
struct Mod{
  Int prev=0;
  vector<Int> fact,inv,finv;
  Mod(){}
  Mod(Int n){init(n);}
  
  Int pow(Int x,Int n){
    Int res=1;
    while(n){
      if(n&1) (res*=x)%=MOD;
      (x*=x)%=MOD;
      n>>=1;
    }
    return res;
  }
  
  Int inverse(Int a){
    return pow(a,MOD-2);
  }
  
  void init(Int n){
    if(prev>=n) return;
    prev=n;
    fact=inv=finv=vector<Int>(n);
    
    fact[0]=1;
    for(Int i=1;i<n;i++)
      fact[i]=(fact[i-1]*i)%MOD;
    
    inv[1]=1;
    for(Int i=2;i<n;i++)
      inv[i]=inv[MOD%i]*(MOD-MOD/i)%MOD;
    
    finv[0]=1;
    for(Int i=1;i<n;i++)
      finv[i]=finv[i-1]*inv[i]%MOD;
  }
  
  Int comb(Int n,Int k){
    Int res=1;
    for(Int i=0;i<k;i++){
      res*=(n-i)%MOD;
      res%=MOD;
      res*=inverse(i+1);
      res%=MOD;
    }
    return res;
  }
  
  //only for prime MOD
  Int C(Int n,Int k){
    if(k<0||k>n) return 0;
    return fact[n]*finv[k]%MOD*finv[n-k]%MOD;
  }
  
  Int P(Int n,Int k){
    if(k<0||k>n) return 0;
    return fact[n]*finv[n-k]%MOD;    
  }

  Int H(Int n,Int k){
    return C(n+k-1,n);
  }

  Int S(Int n,Int k){
    Int res=0;
    for(Int i=1;i<=k;i++){
      Int tmp=C(k,i)*pow(i,n)%MOD;
      if((k-i)&1) res+=MOD-tmp;
      else res+=tmp;
      res%=MOD;
    }
    res=res*finv[k]%MOD;
    return res;
  }
  
  Int B(Int n,Int k){
    Int res=0;
    for(Int j=1;j<=k;j++){
      res+=S(n,j);
      res%=MOD;
    }
    return res;
  }
  
  vector<vector<Int> > D(Int n,Int m){
    vector<vector<Int> > dp(n+1,vector<Int>(m+1,0));
    dp[0][0]=1;
    for(Int i=0;i<=n;i++){
      for(Int j=1;j<=m;j++){
	if(i-j>=0) dp[i][j]=(dp[i][j-1]+dp[i-j][j])%MOD;
	else dp[i][j]=dp[i][j-1];
      }
    }
    return dp;
  }
  
  Int montmort(Int n){
    Int res=0,rinv=1;
    for(Int k=2;k<=n;k++){
      rinv=rinv*inverse(k)%MOD;
      if(k%2) res+=MOD-rinv;
      else res+=rinv;
      res%=MOD;
    }
    for(Int i=1;i<=n;i++) res=res*i%MOD;
    return res;
  }
  
  // calculate P(t) from given points in [0,N]
  Int LagrangePolynomial(vector<Int> &y,Int t){
    Int n=y.size()-1;
    init(n+1);
    Int num=1;
    for(Int i=0;i<=n;i++)
      num=num*((t-i)%MOD)%MOD;
    Int res=0;
    for(Int i=0;i<=n;i++){
      Int tmp=(y[i]*num%MOD)*inverse((t-i)%MOD)%MOD;
      tmp=tmp*finv[i]%MOD;
      tmp=tmp*finv[n-i]%MOD;
      if((n-i)&1) tmp=MOD-tmp;
      res=(res+tmp)%MOD;
    }
    return res;
  }
};


//INSERT ABOVE HERE
signed main(){
  string s;
  cin>>s;
  const Int MOD = 1e9+7;
  Mod<MOD> mod(1e6);
  Int n=s.size();
  Int a=0,b=0,c=0,q=0;
  for(Int i=0;i<n;i++){
    if(s[i]=='?') q++;
    if(s[i]=='A') a++;
    if(s[i]=='B') b++;
    if(s[i]=='C') c++;    
  }
  Int ans=mod.comb(q,3);
  if(q>=3) ans=ans*mod.pow(3,q-3);
  //cout<<ans<<endl;

  {
    Int uku=mod.pow(3,q);
    Int x=0,y=0,z=0;
    for(Int i=0;i<n;i++){
      if(s[i]=='A') x++;
      if(s[i]=='B') y++;
      if(s[i]=='C') z++;
      if(s[i]=='B') ans+=x*(c-z)%MOD*uku%MOD;
      ans%=MOD;
    }
  }
  
  if(q>=1){
    Int x=0,y=0,z=0;
    Int uku=mod.pow(3,q-1);
    //cout<<q<<":"<<uku<<endl;
    
    x=y=z=0;
    for(Int i=0;i<n;i++){
      if(s[i]=='A') x++;
      if(s[i]=='B') y++;
      if(s[i]=='C') z++;
      if(s[i]=='?') ans+=x*(c-z)%MOD*uku%MOD;
      ans%=MOD;
    }

    Int res=0;
    x=y=z=res=0;
    for(Int i=0;i<n;i++){
      if(s[i]=='A') x++;
      if(s[i]=='B') res+=x;
      if(s[i]=='C') z++;
      if(s[i]=='?') ans+=res*uku%MOD;
      ans%=MOD;
    }

    x=y=z=res=0;
    for(Int i=n-1;i>=0;i--){
      if(s[i]=='A') x++;
      if(s[i]=='B') res+=z;
      if(s[i]=='C') z++;
      if(s[i]=='?') ans+=res*uku%MOD;
      ans%=MOD;
    }
    //cout<<ans<<endl;
  }
  
  if(q>=2){
    Int uku=mod.pow(3,q-2);
    Int w,x,y,z;
    w=x=y=z=0;
    for(Int i=0;i<n;i++){
      if(s[i]=='A') x++;
      if(s[i]=='B') y++;
      if(s[i]=='C') z++;
      if(s[i]=='?') w++;
      if(s[i]=='B') ans+=w*(q-w)%MOD*uku%MOD;
      ans%=MOD;
    }
  
    w=x=y=z=0;
    for(Int i=0;i<n;i++){
      if(s[i]=='A') x++;
      if(s[i]=='B') y++;
      if(s[i]=='C') z++;
      if(s[i]=='?') w++;
      if(s[i]=='C') ans+=mod.C(w,2)*uku%MOD;
      ans%=MOD;
    }

    w=x=y=z=0;
    for(Int i=n-1;i>=0;i--){
      if(s[i]=='A') x++;
      if(s[i]=='B') y++;
      if(s[i]=='C') z++;
      if(s[i]=='?') w++;
      if(s[i]=='A') ans+=mod.C(w,2)*uku%MOD;
      ans%=MOD;
    }  
  }
  cout<<ans<<endl;
  return 0;
}


Measured memory_bytes: 24064