#!/usr/bin/perl

$version="2.2.1-ALPHA30";
my @numeros = $version =~ /(\d+)/g;
$quantidade = scalar(@numeros);

print "Foram encontrados $quantidade números!\n";
print join(", ", @numeros);