Looking at the source code of Telnet.pm:

sub print {
    my ($self) = shift;
    my (
    $buf,
    $fh,
    $s,
    );

    $s = *$self->{net_telnet};
    $s->{timedout} = '';
    return $self->error("write error: filehandle isn't open")
    unless $s->{opened};

    ## Add field and record separators.
    $buf = join($s->{ofs}, @_) . $s->{ors};
...
[download]

Can you already spot it? Yes, it's ors, the Output Record Separator. You can configure that, and the docs even tell you how. Isn't it great?