for my $aref (@$STF3) { print OUTPUT qq|
  • $aref->[0]
  • $aref->[2]
    \n|; } #### return split(/\n/, $document); return \@STF1, \@STF3;