%_DATENSATZ_%
Frage
%_TRENNER_%
Meine Tolle<br>
Antwort<br>
.....

%_DATENSATZ_%
....

....
open (FAQ,"meinedatei.txt") or die "Fehler beim öffnen der Datei\n$!"; 
while(<FAQ>)
{
      
  my @faq_datensatz = split (/%_DATENSATZ_%/,%_DATENSATZ_%; #(m/:::/,$_);
  foreach ( sort @faq_datensatz ) {
    my $datensatz = $faq_datensatz[0];
    my @faq_einzeldaten = split(/%_TRENNER_%/,$datensatz );
    my $frage    = $faq_einzeldaten[0];
    my $antw    = $faq_einzeldaten[1];
    $x = qq{<h2>$frage</h2><p>$antw</p>};
    print $x;
  }
 
}
....

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $faq = '/path/to/faq.txt';
my @faqs;

{
    local $/ = '%_DATENSATZ_%';
    open my $fh, '<', $faq or die $!;
    while( my $entry = <$fh> ){
        push @faqs, [split /\Q%_TRENNER_%\E/,$entry,2];
    }
    close $fh;
}

print Dumper(\@faqs);