index is what you're looking for:

perl -le '$x = "foo.bar.aaa"; print substr $x, 0, index $x, "."'
[download]