#!/usr/bin/perl

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

my @content = (
q~07:40:14-25-01-2007-Fax an:750895+Fax_AK-Reha@na.lsv.local+3+/var/spool/capifax/recvq/cfn0112107-05141723179.tif+/var/spool/capifax/recvq/cfn0112107-05141723179.tif.pdf+05141723179+0+0x3490~,
q~07:50:09-25-01-2007-Fax an:750030+FAX_KMB-GemB@na.lsv.local,ren.westphal@na.lsv.local,+1+/var/spool/capifax/recvq/cfn0112108-+49 5175 31278.tif+/var/spool/capifax/recvq/cfn0112109-+49 5175 31278.tif.pdf++49 5175 31278+0+0x3490~,);

for my $z ( @content ){
    my @info = $z =~ /^(\d+:\d+).*?(\d+-\d+-\d{4})-(.*?):\d+\+(.*?)\+\d\+(.*?\.tif)/;
    print Dumper \@info;
}