(!$error) && (print "$data" while ($data = <input>))