How to trim text to a specific character using regular expressions in Perl?

Question

Perl

How to get from text :
text123 (text 123)
:
text123
also need to trim text to 5 characters
from
texttext texttext123
get
textt

Answer 1

And you don't need a regex for that. Enough susbstr

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

Answer 2

Regex101