think i figured it out
changed:
foreach (split /\n/, $fields) {guess i don't need the line:
$file =~ m/\%db_radio_fields\s+=\s+\((.*?)\)/s and $values = $1;
changed:
Code:
#foreach (split /\n/, $values) { foreach (split /\n/, $fields) {
$file =~ m/\%db_radio_fields\s+=\s+\((.*?)\)/s and $values = $1;