no strict 'vars';
$rec_re = qr{ \( (?: (?> [^()]+ ) | (??{ $rec_re }))* \) }x;
my $re = $rec_re;
use strict;