my $count = () = "abacadaeafag" =~ /a/g;
  my @empty = () = "abacadaeafag" =~ /a/g;
  print "[", $count, "]\n";           # prints: [6]
  print "[", @empty, "]\n";           # prints: []