program mire;
var a:array[1..1000,1..1000] of char;
   f,g:text;
   n,m:integer;
   fr,v,gol:array['a'..'z'] of integer;
procedure citire;
var i,j:integer;
   c:char;
begin
 assign(f,'matrix.in'); reset(f);
 assign(g,'matrix.out'); rewrite(g);
   readln(f,n,m);
   for i:=1 to n do
     begin
       for j:=1 to n do
          read(f,a[i,j]);
        readln(f);
     end;
   for i:=1 to m do
     begin
       for j:=1 to m do
       begin
          read(f,c);
          inc(fr[c]);
        end;
        readln(f);
     end;
 close(f);
end;
procedure det;
var i,j,x,y:integer;
      s:longint;
      ok:boolean;
      p:char;
begin
  s:=0;
  for i:=1 to n-m+1 do
   begin
      for j:=1 to n-m+1 do
          begin
           ok:=true;
           v:=gol;
              for x:=i to m+i-1 do
                 begin
                    for y:=j to m+j-1 do
                          inc(v[a[x,y]]);
                 end;
             for p:='a' to 'z' do
                if v[p]<>fr[p] then
                 begin
                   ok:=false;
                   break;
                 end;
               if ok then
                  inc(s);
          end;
   end;
   writeln(g,s);
   close(g);
end;
begin
  citire;
  det;
end.