#!/usr/bin/perl

$version="2.2.1-ALPHA30";
my $quantidade = () = my ($major, $minor, $revision, $build) = $version =~ /(\d+)/g;

print "Foi encontrado $quantidade resultados!\n";
print "$major, $minor, $revision, $build\n";