programming-examples/perl/Statement/Using unless with regular expression.pl
2019-11-15 12:59:38 +01:00

10 lines
108 B
Perl

while (<>) {
chomp;
unless (/^q/i) {
print;
} else {
exit;
}
}