my $enum_types = "'On Order','Waiting, Pending Payment','Dispatched','Cancelled','Renewal','Amend\'ed'"; # NB: one value has a , in it and another a ' just to make this challenging... ;-) foreach my $enum_type ( eval $enum_types ) { print qq[\n]; }