Как обрезать текст до определенного символа с помощью регулярных выражений на Perl?

Question

[4upik]

Как из текста :
text123 (text 123)

получить:
text123

также необходимо обрезать текст в 5 символов

из
texttext texttext123

получить
textt

Answer 1

[pcdesign]

А для этого не нужны регулярки. Достаточно susbstr

print substr("text123 (text 123)",0, 7);
# Результат text123
print substr("texttext texttext123",0, 5);
# Результат textt

Answer 2

[Александр]

Regex101