Select Code to Download

sub characters {
  my ($self, $chars) = @_;
  $self->{buffered_text} .= $chars->{Data};
  ...
}

sub get_buffered_text {
  my $self = shift;
...
  $self->{buffered_text} = '';
  return $text;
}

sub get_buffered_text {
  my $self = shift;
  (($_, $self->{buffered_text}) = ($self->{buffered_text}, ''))[0];
}