$fl = '-?\d+\.?\d*,?';
$levene = $4 
  if /TEST FOR VARIANCES\s+(${fl})\s+(${fl})\s+(${fl})\s+(${fl})/;