sub format_texts {
  use strict;
  use 5.010;
  use RTF::Writer;

  my ( $rvars, $reftext1 ) = @_;
  my %vars  = %$rvars;
  my $text1 = $$reftext1;

  my $rtf = RTF::Writer->new_to_file( $vars{word} );
  $rtf->prolog( 'title' => "List of fears", );
  $rtf->number_pages;
  $rtf->paragraph(\'\qc\f0\fs120\b ', "Fears");
  $rtf->paragraph(\'\ri3000\li-500\f0\fs30\b0\ql',$text1);
  $rtf->close;


##</code><code>##

  for (@fears) {
    s/\s+$/ /;
    $_ = lc($_);
    s/^(\d+\. )(.) /$1 Fear of $2/;
  }