Really i could not understand but the code

$count = $a =~ /\d+/g ;
vs.
$count = () = $a =~ /\d+/g ;
[download]

is an issue.