#! /usr/bin/perl
use strict;
use warnings;
use 5.020;

no warnings qw( redundant );
our $VERSION = sprintf 'v.%02d.%03d', q $ Revision 1.12.123 $ =~ /(\d+)\.(\d+)\.(\d+)/;

say "Version ist: $VERSION";