my @col=split('\|', $line);