$begin=<>;
$symb=<>;
chomp($symb);
$symb1=lc($symb);
$symb2=uc($symb);

chomp($begin);
$del='';
@bgn=split $del,$begin;
$COUNT=0;
while (@bgn ne 0) {
	$ch=shift@bgn;
	if (($ch eq $symb1) or ($ch eq $symb2)) { $COUNT=$COUNT+1;}
} print("$COUNT \n");