knoppix@Microknoppix:~$ perl -E '
> $str = q{banana};   
> say $str;
> $cnt = $str =~ tr{a}{};
> say $cnt;
> say $str;'
banana
3
banana
knoppix@Microknoppix:~$