while ($condition and my $line = <STDIN>) {
    say $line;
}