#!/usr/bin/perl -w

open (FH, $ARGV[0]);
while(my $w = <FH>) {

    for(my $w = split /\t\t/,$w ) {
        my @matches = $w =~ m/(\d{1,2}\.\d{1,2}\.\d{4})(\t{1,2})(\d)/g;
       print($1 . " " . $3 . "\n");
    }
}


#####################################################

f00@localhost ~$ perl jules.pl jules.txt
Use of uninitialized value $1 in concatenation (.) or string at jules.pl line 8, <FH> line 1.
Use of uninitialized value $3 in concatenation (.) or string at jules.pl line 8, <FH> line 1.

Use of uninitialized value $1 in concatenation (.) or string at jules.pl line 8, <FH> line 2.
Use of uninitialized value $3 in concatenation (.) or string at jules.pl line 8, <FH> line 2.

f00@localhost ~$ cat jules.txt
1.1.2003    4       2.4.2085    7       2.1.2054    6
2.1.2054    6       2.1.2054    6       2.1.2054    6