while($_line1 =~ /"/) { ... $_extraLine1 =~ s/,//g; #### }# End the check to see if contained another quote. #### }# End while statement