programming-examples/perl/Statement/until with diamond operator.pl

until (($line = <>) eq 'q\n') {
    print $line;
}