while (my $line = <IN>){ 
    if ($line =~ m|(\[\d+\])|){ 
        $error{$1} += 1;
    }                                       
}