my @fields = split(/\Q$sep/, $_);