DB<30> p $VERSION = do { my @r = (q$Revision: 1.2.3.4.5 $ =~ /\d+/g); sprintf
"%d."."%02d" x $#r, @r };
1.02030405

##</code><code>##

  DB<34> use Data::Dump qw/dd/
                                                            
  DB<35> dd $]
     5.016003

  DB<36> dd $^V
     bless({ original => "v5.16.3", qv => 1, version => [5, 16, 3] }, "version")