for my $match ($a =~ /\d+/g) {
   print "$match\n"
}