[perl] можно ли функции или методу передать шаблон?

я через eval такое делаю

а например?

тут вопрос про обходной путь возник. В функции можно просто передать qr//, но есть ли способ проверить это событие , кроме как m/^\(\?/ ?