my $ver = $]*1000; # correct for possibile division problems 
print "\$]=$], \$ver=$ver\n";  # debug
my ($major,$minor,$sub) = unpack("AA3xA3","$ver");

##</code><code>##

$]=5.008008, $ver=5008.008

##</code><code>##

$]=5.010000, $ver=5010
'x' outside of string in unpack at ./760220.pl line 10.