#!/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";