foreach $field (split(/\Q$delim\E/, $line)) {