2010-12-01T20:15:20.000+01:00
2010-12-01T21:10:18.000+01:00
2010-12-01T21:15:40.000+01:00
2010-12-01T23:28:04.000+01:00
2010-12-01T20:16:33.000+01:00
to
for example 
2010-12-01,20:15:20.000+01:00

##</code><code>##

#!usr/bin/perl -w
open(IN,'<transaction');
open(RE,'>>res');
while(<IN>)
{
$a=split(/T/);
print RE $a;}
close IN;
close RE;