Select Code to Download

#!/usr/bin/perl -w
use strict;

...
    $input =~ /^N/i && next;  # or: next if($input =~ /^N/i);
    $input =~ /^Q/i && last;  # or: last if($input =~ /^Q/i);
}