foreach my $z (@content)
{
  $zeile =~ s/\015\012\|\015|\012//sg;    // Lehrzeichen und Backspace entfernen
  $z =~ qr/^(\d+:\d+):\d+-(\d+-\d+-\d+)-(\[^:]+):\d+\+([-\.\w_\@,]+)\+\d\+([-\+\.\w\s\/]+?\.tif)/x;

...
}