#!/usr/bin/perl
use strict;
# http://board.perl-community.de/cgi-bin/ikonboard/ikonboard.cgi?act=ST;f=6;t=4484

my $regex = qr/(^\d*?:\d*?):\d*?-(\d*?-\d*?-\d*?)-(\D*):[0-9]*\+([\.\w-_@,]*)[\+,]\d\+([\/\w\s-\.\+]*\.tif)\+.*$/;

while ( <DATA> ) {

    $_ =~ s/\015\012\|\015|\012//sg;

    if ( $_ =~ m/$regex/ ) {
        print "1: $1\n2: $2\n3: $3\n4: $4\n5: $5\n";
    }
}

__END__
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
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