Как взять подстроку заданной строки до первого появления указанного символа?

Вопрос для perl.

Например, если у меня есть «hello.world» , а указанный символ - '.' , то результат, который мне нужен, будет «привет» .