$val=(split(/\./,$bar))[0];