my ($ver) = $str =~ /V([0-9.]+)>>$/;

##</code><code>##

my $ver = substr(reverse($str),2,8);