Help for this page

Select Code to Download


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