read mode
litera=${mode:0:1}
while read linia; do
        if [[ $mode =~ .\+ ]]; then
        linia="${linia//[^$litera]}"
        echo "${#linia}"
        else
        linia="${linia//[^${litera,,}${litera^^}]}"
        echo "${#linia}"
        fi
done