@cols = split(/\|/, $line);