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