my $s = "CMTS_V03.01.01.41, <<HW_REV: 1.3; VENDOR: ARRIS; BOOTR: V00.01.00>>";

my($vn) = $s =~ m{V((?:\d+\.?)+)>};

print "version number: $vn";

__output__

version number: 00.01.00