#include<iostream>

#include<cstdio>

#include<cstring>

#include<algorithm>

#include<cmath>

#include<map>

#include<queue>

using namespace std;

map <char,int> Map;//用map把字符转成数字

int n,m,ans;

int mp[][],xx[]={,,,-},yy[]={,,-,};//mp存键盘状态

int nex[][][][];//nex存每个点向4个方向走，走到的点的横坐标和纵坐标

inline void premap()//预处理map

{

    for(int i=;i<=;i++) Map[(char)(''+i-)]=i;

    for(int i=;i<=;i++) Map[(char)('A'+i)]=i+;

    Map['-']=; Map['*']=;

}

inline void prenex()//预处理nex

{

    for(int i=;i<=n;i++)

        for(int j=;j<=m;j++)

            for(int k=;k<;k++)

            {

                int x=i+xx[k],y=j+yy[k];

                while(mp[i][j]==mp[x][y]) x+=xx[k],y+=yy[k];//如果相同就继续走

                nex[i][j][k][]=x; nex[i][j][k][]=y;

            }

}

struct node

{

    int x,y,stp,dis;

    //x,y存横纵坐标,stp存当前已经选了几个字符,dis表示进行了几次操作

};//广搜的队列里每个点的内容

int lst[],vis[][],len;

//lst存给定的字符串转成数字后的情况

//vis是记忆化数组,存走到点 i j 时选择的字符最多为多少

inline void bfs()

{

    queue <node> q;//每次都重新开一个队列，如果重复用也可以，但是要注意清空

    q.push( (node){,,,} );//把初始状态压入队列

    while(!q.empty())

    {

        node u=q.front(); q.pop();

        if(mp[u.x][u.y]==lst[u.stp])//如果当前光标所在的字符是当前想要的字符

        {

            if(u.stp==len)//如果是最后一个字符，就代表找到了最少步数

            {

                ans=u.dis+;//注意+1

                return;

            }

            //否则

            u.stp++; u.dis++;//选择此字符

            vis[u.x][u.y]=u.stp;//更新vis

            q.push(u);//重新加入队列

        }

        else//如果不是想要的字符

        {

            int x,y;

            for(int k=;k<;k++)//尝试向4个方向移动

            {

                x=nex[u.x][u.y][k][]; y=nex[u.x][u.y][k][];

                if(x<||x>n||y<||y>m) continue;//判断越界

                if(vis[x][y]>=u.stp) continue;//剪枝

                vis[x][y]=u.stp;

                q.push( (node){x,y,u.stp,u.dis+} );//新状态加入队列

            }

        }

    }

}

char ch[];

int main()

{

    premap();

    while(scanf("%d",&n)!=EOF)

    {

        memset(nex,,sizeof(nex));

        memset(mp,,sizeof(mp));

        memset(lst,,sizeof(lst));

        memset(vis,-,sizeof(vis));//注意初始化

        ans=;

        scanf("%d",&m);

        for(int i=;i<=n;i++)

        {

            scanf("%s",ch);

            for(int j=;j<m;j++)

                mp[i][j+]=Map[ch[j]];//读入键盘并转成数字

        }

        scanf("%s",ch); len=strlen(ch);

        for(int i=;i<len;i++) lst[i]=Map[ch[i]];//读入字符串并转成数字

        lst[len]=;//最后要加一个'*'号

        prenex();

        bfs();

        cout<<ans<<endl;

    }

    return ;

}