my($type, $date, $itemtype, $address, $email, $username) = split /\|/, $line;