Help for this page

Select Code to Download

Select or download this

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