sub get_utf8_text {
  use 5.010;
  use HTML::FromText;
  use Path::Tiny;
  use utf8;
  use open OUT => ':utf8';

### Passing in
  #reference to main data structure and directory for captions
  my ( $rvars, $dir ) = (@_);
  my %vars = %$rvars;

  say "dir is $dir";
  opendir my $eh, $dir or warn "can't open dir for utf8 captions  $!\n";
  while ( defined( $_ = readdir($eh) ) ) {
    next if m/~$/;
    next if -d;
    if (m/txt$/) {
      my $file = path( $dir, $_ );

      my $guts = $file->slurp_utf8;
      my $temp = text2html(
        $guts,
        lines => 1,
        paras => 1,
      );

      # surround by divs

      my $oitop    = $vars{"oitop"};
      my $oben     = $oitop->slurp_utf8;
      my $oibottom = $vars{"oibottom"};
      my $unten    = $oibottom->slurp_utf8;
      my $text     = $oben . $temp . $unten;

      say "text is $text";
      $content{$_} = $text;
    }
  }
  closedir $eh;

  #important to sort
  my @return;
  foreach my $key ( sort keys %content ) {

    #print $content{$key} . "\n";
    push @return, $content{$key};
  }
  return \@return;
}

##</code><code>##

<div class="outer">
<div class="hft-lines">&#x43B; &#x43B;&#x435;&#x441;&#x43E;&#x43F;&#x430;&#x440;&#x43A;<br />
&#x43E; &#x438; &#x43E; &#x43E; &#x435; <br />
&#x43A;&#x43E;&#x43C;&#x430;&#x440; &#x440; &#x439; <br />
&#x43B; &#x431; &#x442;&#x440;&#x430;&#x441;&#x441;&#x430;<br />
&#x451;  &#x43A;   &#x442; &#x431;<br />
&#x43F;&#x430;&#x441;&#x441;   &#x443;&#x445;&#x43E;<br />
  &#x43C;&#x435;&#x43D;&#x435;&#x434;&#x436;&#x435;&#x440;<br />
&#x444;&#x430;&#x443;&#x43D;&#x430; &#x440;&#x430;&#x43A;&#x438;<br />
  &#x442;&#x43E;&#x441;&#x43A;&#x430;  &#x433;<br />
&#x448;&#x43A;&#x430;&#x43D;&#x442; &#x43C;  &#x435;<br />
    &#x430;&#x442;&#x430;&#x43C;&#x430;&#x43D;<br />
    &#x432; &#x442; &#x442; <br />
    &#x43D; &#x443;&#x445;&#x430;&#x431;<br />
    &#x438;&#x433;&#x440;&#x43E;&#x43A;&#x438;<br />
    &#x43A; &#x433;&#x440;&#x430;&#x447;<br /></div></div>  <!-- end #outer-->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              

##</code><code>##

      # surround by divs

      my $oitop    = $vars{"oitop"};
      my $oben     = $oitop->slurp_utf8;
      my $oibottom = $vars{"oibottom"};
      my $unten    = $oibottom->slurp_utf8;
      my $text     = $oben . $temp . $unten;

##</code><code>##

 
$ cat oi*.txt
<div class="outer">

</div>  <!-- end #outer-->
$ 

##</code><code>##

.outer {
background-color:white;
margin-left : auto;
margin-right : auto;
border-radius : 1em;
clear: left;
margin-top: .7em;
margin-bottom: .7em;
max-width:25%;
display:block;

}

.hft-lines {
background-color:white;
margin-left : auto;
margin-right : auto;
border-radius : 1em;
clear: left;
margin-top: .7em;
margin-bottom: .7em;
max-width:85%;
display:block;
text-align:center;
font-size: 1.5em;

}