program Arina;
var
  s,s1: ansistring;
  i, k, n,prov: word;
  pref: array of word;
  sum: word;
begin
  Assign(input, 'input.txt');
  Assign(output, 'output.txt');
  reset(input);
  rewrite(output);
  Readln(s1);
  readln(s);
  n:=length(s1);
  s:=s1+' '+s;
  s1:= '';
  prov:=Length(s)-2*n+2;
  setlength(pref,Length(s)-2*n+2);
  k := 0;
  prov:=Length(s)-n+1;
  for i := n to Length(s)-n+2 do
  begin
    while (k > 0) and (s[k + 1] <> s[i]) do
      k := pref[k];
    if s[k + 1] = s[i] then
      k += 1;
    pref[i] := k;
    if pref[i]=n then
      sum += 1;
  end;
  Write(sum);
  Close(input);
  Close(output);
end.