10 lines
108 B
Perl
10 lines
108 B
Perl
while (<>) {
|
|
chomp;
|
|
unless (/^q/i) {
|
|
print;
|
|
} else {
|
|
exit;
|
|
}
|
|
}
|
|
|
|
|