my @array = split/\s+/, $scaler;