Select Code to Download

THIS IS OUTSIDE (THIS IS INSIDE)
(inside) outside
...
This one has () an empty pair
This opens (with one)) and double closes
this is the last (really) one

#!perl
use strict;
...
    y/ / /s, s/^\s|\s$// if $cleanup;
    say;
}

THIS IS OUTSIDE
outside
...
This one has an empty pair
This opens and double closes
this is the last one

#!perl
use strict;
...
    }
    say $str;
}

THIS IS OUTSIDE
 outside
...
This one has  an empty pair
This opens
this is the last  one

#!perl
use strict;
...
    my $extract = join '|', map { "\Q$_\E" } ( $str =~ m/(\(+.*?\)+)/g
+ );
    say join '', split /$extract/, $str;
}

#!perl
use strict;
...
    warn "WARNING: Unclosed parenthetical on line $.\n" if $inside;
    say $str;
}

THIS IS OUTSIDE
 outside
...
WARNING: extra close on line 9
This opens ) and double closes
this is the last  one