Select Code to Download

#!/usr/bin/perl -w
use strict;
...
            return $propstr;
        }
    },

    Aristotle => sub {
        my $str = shift;
...
        /\G.*?\(/gc while $level--;
        return substr $_, pos;
    },

);

...
} keys %get_prop_str });

__END__

ok 1 - by Aristotle for case -1
ok 2 - by Aristotle for case 0
...
ok 19 - by Fatvamp for case 3
ok 20 - by Fatvamp for case 4
ok 21 - by Fatvamp for case 5

Benchmark: running Aristotle, Fatvamp, bobn for at least 2 CPU seconds
+...
 Aristotle:  2 wallclock secs ( 2.12 usr +  0.01 sys =  2.13 CPU) @ 25
+239.44/s (n=53760)
...
bobn      22248/s       41%        --      -12%
Aristotle 25239/s       60%       13%        --
1..21

    Aristotle2 => sub {
...
        };
        m/$rx/g && return substr $_, pos;
    },