#include <cstdio>
#include <cstring>
#include <algorithm>
#include <cmath>

using namespace std;

const int N=21005,M=N*10,nn=105,INF=1e9;

typedef long long LL;

int n,m,tot,In[nn][nn],Out[nn][nn],H[nn],W[nn],S,T,sum;

int h[N],e[M],nxt[M],fl[M],f[N],vis[N],calc,Now[N],ans;

char Map[nn][nn];

void Add(int x,int y,int z)
{
	e[++tot]=y; nxt[tot]=h[x]; fl[tot]=z; h[x]=tot;
}

bool aug(int x)
{
	vis[x]=calc;
	if (x==T) return 1;
	for (int i=Now[x];i;i=nxt[i]) if (fl[i] && vis[e[i]]<calc && f[x]==f[e[i]]+1)
	{
		if (aug(e[i]))
		{
			fl[i]--; fl[i^1]++; Now[x]=i; return 1;
		}
	}
	return Now[x]=0;
}

void flow()
{
	memcpy(Now,h,sizeof(h));
	for (;;)
	{
		calc++;
		if (aug(S)) ans++;else break;
	}
}

bool check()
{
	int tmp=INF;
	for (int i=1;i<=sum;i++) if (vis[i]==calc)
	{
		for (int j=h[i];j;j=nxt[j]) if (fl[j] && vis[e[j]]<calc)
			tmp=min(tmp,f[e[j]]+1-f[i]);
	}
	if (tmp==INF) return 0;
	for (int i=1;i<=sum;i++) if (vis[i]==calc) f[i]+=tmp;
	return 1;
}

int main()
{
	scanf("%d%d",&n,&m);
	for (int i=1;i<=n;i++)
	{
		scanf("%s",Map[i]+1);
		for (int j=1;j<=m;j++) if (Map[i][j]!='.')
		{
			In[i][j]=++tot; Out[i][j]=++tot;
			if (Map[i][j]=='S') S=Out[i][j];
			else if (Map[i][j]=='T') T=In[i][j];
		}
	}
	for (int i=1;i<=n;i++) for (int j=1;j<=m;j++) if (Map[i][j]=='S')
	{
		for (int k=1;k<=n;k++) if (Map[k][j]=='T')
		{
			printf("-1\n"); return 0;
		}
		for (int k=1;k<=m;k++) if (Map[i][k]=='T')
		{
			printf("-1\n"); return 0;
		}
	}
	for (int i=1;i<=n;i++) H[i]=++tot; for (int i=1;i<=m;i++) W[i]=++tot;
	sum=tot; tot=1;
	for (int i=1;i<=n;i++) for (int j=1;j<=m;j++) if (Map[i][j]!='.')
	{
		Add(In[i][j],Out[i][j],1); Add(Out[i][j],In[i][j],0);
		Add(Out[i][j],H[i],INF); Add(H[i],Out[i][j],0);
		Add(Out[i][j],W[j],INF); Add(W[j],Out[i][j],0);
		Add(H[i],In[i][j],INF); Add(In[i][j],H[i],0);
		Add(W[j],In[i][j],INF); Add(In[i][j],W[j],0);
	}
	for (flow();check();flow());
	printf("%d\n",ans);
	return 0;
}