foreach my $z (@content)
{
  $z =~ 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;

  Ausgabe aller Werte:
  if ($_ =~ m/$z/)          
  {
     print "\n$1, $2, $3, $4, $5";
  }

..
}