foreach (@FILE_ARRAY){
  next unless /^(?:([0-9_a-zA-Z*]+) +)?(?:([0-9_a-zA-Z*]+) +)?(?:([0-9_a-zA-Z*]+) +)?([0-9_a-zA-Z*]+)\((.+?)\)/;
  my ($args, @definition) = map { defined($_)?$_:'' } $5, $1, $2, $3, $3;
  print join(" ", @definition) . " ARGS: $args\n";
}

##</code><code>##

sub foo {
  my $self = shift;
  my $p = {@_};
  my $name = $p->{name} or die;
  my $value = $p->{value} || 123;
}