read $FOO, $s, $l or do { warn "reading foo file"; last PROCESS_FOO; }