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