C:\Dokumente und Einstellungen\Renee>perl
my @array = qw( t:t test.:.hallo test.:hallo t:. );
use Data::Dumper;

print Dumper([split /.:./],[split /\.:\./]) for @array;

^D
$VAR1 = [];
$VAR2 = [
          't:t'
        ];
$VAR1 = [
          'test',
          'hallo'
        ];
$VAR2 = [
          'test',
          'hallo'
        ];
$VAR1 = [
          'test',
          'allo'
        ];
$VAR2 = [
          'test.:hallo'
        ];
$VAR1 = [];
$VAR2 = [
          't:.'
        ];