my $count = $string =~ tr/@//;