$sw_fields[2] =~ m/^(\d*)/; # match the primary version
if ($1 and $ver <= $1) {
    # do your stuff