-enlil

use strict;
undef $/;
my $text=<DATA>;
my @array=();
@array=$text=~m#void xxx \(void\)(\{[^\{\}]+\})#gs;
$"="\n";
print "@array";

__DATA__
void xxx (void){
    #inside function 1
    }
void xxx (void){
    #inside function 2
    }
void xxx (void){
    #inside function 3
}
[download]

#!/usr/bin/perl -w
use strict;

my $code = <<'EOC';
#import <stdio.h>
#import <time.h>

char * point() {
    printf("[function point]\n");
    return "point";
}

char * mouse() {
    printf("[function mouse]\n");
    return "mouse";
}
EOC

my @subs = ( $code =~ /\{([^\{\}]+)\}/g );
print "@subs\n";
[download]

$np = qr{
           \(
           (?:
              (?> [^()]+ )    # Non-parens without backtracking
            |
              (??{ $np })     # Group with matching parens
           )*
           \)
        }x;
[download]