$count = () = $s =~ /abc/g;