($hold1, $hold2, $hold3, $emailaddress) = (split /\|/,$linein)[0,6,7,8];