s/// te renvoie déjà le nombre de substitution

cf doc perl et leur exemple
$count = ($paragraph =~ s/Mister\b/Mr./g);