my($var1, $var2, $var3) = split(/\|/, $_);