my @lines = do { local $/ = undef; split(/\r|\003/, <$handle>) };