> substring(str from '^(.+)\.[^.]+$')

Jei jau visai teisingai (reikia dvigubai bekslešinti):
substring(str from '^(.+)\\.[^.]+$');