#!/usr/bin/perl

my $test = 'void main(int argc, char *argv[]);';

if ($test =~ m/[A-Za-z\d]+\s+[A-Za-z\d]+\(([A-Za-z\d]+\s+[A-Za-z\d\*\[\]])+\);/)
 {
    print "huzuh!\n";
}