Бройкай срещанията за един знак така:

$string = "ThisXlineXhasXsomeXx'sXinXit";
$count = ($string =~ tr/X//);
print "There are $count X characters in the string";

ако търсиш двойки (или повече) числа (23 например) трябва да завъртиш while и да не режеш (без tr):

$string = "-9 55 48 -2 23 -76 4 14 -44";
while ($string =~ /-\d+/g) { $count++ }
print "There are $count negative numbers in the string";

или така:

$count = () = $string =~ /-\d+/g;



воля, воля... и пак воля...