Something I've always wanted is a 'left associative =' which would do exactly that:

    my $text =< $self->{buffered_text} =< '';
[download]

  p