my($ip, $text) = split /\s*\|\s*/, $_, 2;