#!/usr/bin/perl

$err=0;

open(EIDS,'txt/tsukurimashou.eids');

while (<EIDS>) {
  if (/\(\[|ERR/) {
    $err++;
    print;
  }
  print "\n" if $ferr;
}

if ($err) {
  exit(1);
}
