#!/usr/bin/perl
use strict;
use warnings;

my $a="  456 789 123 456 789  ";
my $count;
$count = $a =~ /\d+/g ;
print "$count\n";

my @a = $a =~ /\d+/g ;
$count = @a;
print "@a\n";
print "$count\n";

$count = () = $a =~ /\d+/g ;
print "$count\n";