simple solution (and very insecure):

sub enum {
  my (@values) = @_;
  print "Found @values\n";
}

my $string = "enum('one','two','three','four')";

eval $string;
[download]