#!/usr/bin/perl

while (my $line=<>) {
    my ($blah,$blah2,$bla,$time,$blah3)=split(/:/,$line);

    if ($blah eq "test") {
        $time="UNDEF";
        # Replace line in same file.
    }
}