3 lines
52 B
Perl
3 lines
52 B
Perl
until (($line = <>) eq 'q\n') {
|
|
print $line;
|
|
} |
until (($line = <>) eq 'q\n') {
|
|
print $line;
|
|
} |