my $s = "($big_string)"; 
list_extr(\$s)