Select Code to Download

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

list_extr(\( "(" . $big_string . ")" ));

my $ttt = "(" . $big_string . ")";
list_extr(\$ttt);

 
# \G(?:\s|#.*$)* -- means start from last position \G, 
#                   skip spaces and comments # till the 
...
        abs $n > 99999999999999.9 and croak "numb out of range"; 
        return 0 + $n;
}