All the Perl that's Practical to Extract and Report
Discovered in the core data model code for a giant 200k line of Perl application at work...
my @states = qw(ACT NAT NSW NT QLD SA TAS VIC WA NZ); my $senum = 'enum(' . join( ',', map "'$_'", @states ) . ')';