perl -le '$_="foo.bar.baz"; print /^(.*?)\./'