foreach (@config) {  next if /^\#/; # skip comments  if ( s/"([^"]+)"/$1/ ) {    print $_;  } # if } # for