#include<bits/stdc++.h>
using namespace std;
namespace IO{
	template<typename T>inline bool read(T &x){
		x=0;
		char ch=getchar();
		bool flag=0,ret=0;
		while(ch<'0'||ch>'9') flag=flag||(ch=='-'),ch=getchar();
		while(ch>='0'&&ch<='9') x=x*10+ch-'0',ch=getchar(),ret=1;
		x=flag?-x:x;
        return ret;
	}
	template<typename T,typename ...Args>inline bool read(T& a,Args& ...args){
	    return read(a)&&read(args...);
	}
	template<typename T>void prt(T x){
		if(x>9) prt(x/10);
		putchar(x%10+'0');
	}
	template<typename T>inline void put(T x){
		if(x<0) putchar('-'),x=-x;
		prt(x);
	}
	template<typename T>inline void put(char ch,T x){
		if(x<0) putchar('-'),x=-x;
		prt(x);
		putchar(ch);
	}
	template<typename T,typename ...Args>inline void put(T a,Args ...args){
	    put(a);
		put(args...);
	}
	template<typename T,typename ...Args>inline void put(const char ch,T a,Args ...args){
	    put(ch,a);
		put(ch,args...);
	}
	inline void put(string s){
		for(int i=0,sz=s.length();i<sz;i++) putchar(s[i]);
	}
	inline void put(const char* s){
		for(int i=0,sz=strlen(s);i<sz;i++) putchar(s[i]);
	}
}
using namespace IO;
#define N 55
#define M 10005
int n,m,len;
int L[N][N],R[N][N],D[N][N],U[N][N];
int f[M][N][N],g[N][N],id;
char t[M],s[N][N];
struct node{
	int k,x,y;
	node(int _k=0,int _x=0,int _y=0):k(_k),x(_x),y(_y){}
};
queue<node> q;
inline void update(int k,int x,int y,int tk,int tx,int ty){
	if(f[tk][tx][ty]>f[k][x][y]+1) f[tk][tx][ty]=f[k][x][y]+1,q.push(node(tk,tx,ty));
}
int main(){
	read(n,m);
	for(int i=1;i<=n;i++) scanf("%s",s[i]+1);
	scanf("%s",t+1),len=strlen(t+1),t[++len]='*';
	for(int i=1;i<=n;i++){
		for(int j=1,x;j<=m;j++){
			for(x=j;x>=1&&s[i][j]==s[i][x];x--);
			if(x>=1) L[i][j]=x;
			for(x=j;x<=m&&s[i][j]==s[i][x];x++);
			if(x<=m) R[i][j]=x;
			for(x=i;x>=1&&s[i][j]==s[x][j];x--);
			if(x>=1) U[i][j]=x;
			for(x=i;x<=n&&s[i][j]==s[x][j];x++);
			if(x<=n) D[i][j]=x;
		}
	}
	memset(f,0x3f,sizeof(f));
	f[0][1][1]=0,q.push(node(0,1,1));
	while(!q.empty()){
		int k=q.front().k,x=q.front().x,y=q.front().y;
		q.pop();
		if(k==len) return put('\n',f[k][x][y]),0;
		if(s[x][y]==t[k+1]) update(k,x,y,k+1,x,y);
		if(L[x][y]) update(k,x,y,k,x,L[x][y]);
		if(R[x][y]) update(k,x,y,k,x,R[x][y]);
		if(D[x][y]) update(k,x,y,k,D[x][y],y);
		if(U[x][y]) update(k,x,y,k,U[x][y],y);
	}
	return 0;
}