$res[601-604] eq 'gomi' and die;