1 while defined ($_ = <>) and not $seen = /test/;
say $seen;