my ($matched) = "foo.bar.aaa" =~ /^(.*?)\./;