my @matches = 'Revision 1.4 ' =~ /\d+/g;
my $format  = '%d.';
$format    .= '%02d' x (scalar @matches - 1);
my $version = sprintf $format, @matches;
$VERSION = $version;
[download]

Is it more understandable?