$count = ($line =~ tr/X/X/);
$count = ($line =~ s/(match1|match2)/$1/g);