if ($sw_fields[2] =~ /^$ver\./) # does it start with $ver and .?

##</code><code>##

my ($major, $minor, $subminor) = split /\./, $sw_fields[2];
if ($major >= 10)