$num = () = $str =~ /pattern/g;