C:\work\perl\Net\ldap\replicationClient\backup>perl
my $line = "Time: 174657\n";
# line has to be in this format: xxx*:*  (xxx are letters,  * ser any signs)
if ($line =~ /^([a-zA-Z_)[3,].*?):(.*)/) {
  print "$1: $2\n";
}
^Z
Time:  174657