My impression is that you might be having problems with the mechanics of split and join, so here is a simple example that you could run with "perl -n" that will read from standard input and write to standard output.

($t, $rest) = split /,/,$_,2;
print join(",",scalar(localtime $t),$rest);
[download]