print STDERR "Now ready to insert new selections: "; { foreach (@keywords){ if (/group\_|field\_/) { print STDERR $_; reset; print STDERR "Regex reset\n"; /(.*)\_(\d*)/;