my $count = $obj->thing =~ m[subthing]g;