$text = 'asdasd'; $count = () = $text =~ /asd/g;