my @splitted = do {
    local $/ = "\r";
    map { split m/\003/ => $_, -1 } <>;
    };