programming-examples/perl/Statement/Using unless with regular expression.pl

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