in reply to Enum Regex

simple solution (and very insecure):
sub enum { my (@values) = @_; print "Found @values\n"; } my $string = "enum('one','two','three','four')"; eval $string;