Help for this page

Select Code to Download


  1. or download this
    perl -le 'print "foo.bar.aaa" =~ /([^.]*)\./;'