#!/usr/bin/perl

use strict;
use warnings;
use 5.020;

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

say "Version ist: $VERSION";