#!/usr/bin/perl -w

use strict;
my @fixed;
my $line;

open( METRIC, 'metric' ) or die;

while (<METRIC>) {
    chomp;
s[([0-9]{2}\/[0-9]{2}\/[0-9]{4} [0-9]{2}:[0-9]{2}) ([0-9]{1,}):([0-9]{1,}):([0-9]{1,}):([0-9]{1,}):([0-9]{1,}):([0-9]{1,}):([0-9]{1,}):([0-9]{1,})][$1 $2 $3 $4 $5 $6 $7 $8 $9];
    unless ( $_ =~ /^[0-9]{2}\/[0-9]{2}\/[0-9]{4} [0-9]{2}:[0-9]{2}$/ ) {
        push @fixed, "$_";
    }
}

close(METRIC) or die;

open( METRIC, '>metric' ) or die;

foreach $line (@fixed) {
    print METRIC "$line\n";
}

close(METRIC) or die;