my ($var1, $var2, $var3, $var4, $var5) = split /\|/, $line, 5;