use Encode qw/decode/;
$self->{buffer}=decode('UTF-8', $self->{buffer});

##</code><code>##

  
$self->{buffer} = join "\n", qq[<div class="pod">], $self->{buffer}, "</div>";

##</code><code>##

use Encode(qw/encode/);
$self->{buffer}=encode('UTF-8', $self->{buffer});

##</code><code>##

$self->SUPER::parse_from_file(@_);