my @a = $line =~ /([^\|]+)\|?/g;