Something
public text v1 · immutable#!/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";
}
#!/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";
}