read(INPUT,$_,4096)