my $test = "25/May/2011 16:19:02,0,0,4,0.04,5,1,0.08,8.5,,,,,,,,";
my @test = split /,/, $test;
foreach (@test){printf "!%s!\n", $_;}

##</code><code>##

my $test = "25/May/2011 16:19:02,0,0,4,0.04,5,1,0.08,8.5,,,,,,,,4";
my @test = split /,/, $test;
foreach (@test){printf "!%s!\n", $_;}

##</code><code>##

my $test = "25/May/2011 16:19:02,0,0,4,0.04,5,1,0.08,8.5,,,,,,,,4,";
my @test = split /,/, $test;
foreach (@test){printf "!%s!\n", $_;}