Please use a list context switcher. :)

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