I want to extract all 14 digit numbers from a webpage but i am getting only one result

```
use LWP::Simple;
use Data::Dumper;
use LWP::UserAgent;

my $url = 'example.com'; #input url
my $as = `curl --silent '$url' -H 'User-Agent: Mozilla/5.0 (Macintosh; In grep OS X 10.9; rv:24.

if ($as =~ m/(\d{12,14})/g) {   
    print STDERR Dumper($as);
}

$as =~ m{(\d{12,14})};

my $upc=$1;

print "$upc\n";

```

is printing only one number