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