@foo=split(/\./,$bar);