....
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;
  }
 
}
....