Help for this page

Select Code to Download

Select or download this

sub format_texts {
  use strict;
  use 5.010;
...
  $rtf->paragraph(\'\qc\f0\fs120\b ', "Fears");
  $rtf->paragraph(\'\ri3000\li-500\f0\fs30\b0\ql',$text1);
  $rtf->close;

Select or download this

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