Select Code to Download

if(my $cnt = /^ policy-map $ouputpol/ ... / policy-map/) {

    print unless $cnt==1 || $cnt =~ /E/;

if(($my $first = /^ policy-map $ouputpol/) ... (my $last = / policy-ma
+p/)) {

    print unless $first || $last;

for my $i (1 .. 15) {
    if(my $cnt = $i==5 ... $i==10) {
        print "$i - $cnt\n";
    }
}

for my $i (1 .. 15) {
    if((my $first = $i==5) ... (my $last = $i==10)) {
...
        print "$i - $first / $last\n";
    }
}