use strict;
use warnings;
use IO::File;

my $qosProfLog = "/svn/projects/DSLAMCheck/branches/fullcheck+multiprocess/work/qosprofile/qosprofilelist_log_ACST8H1-11283.log";
my $QOSPROFLIST_LOG_FH = IO::File->new();
$QOSPROFLIST_LOG_FH->open($qosProfLog,"r");

while (<$QOSPROFLIST_LOG_FH>) {

                    if ( /configure qos profiles policer/ ) {
                    chomp;
                    tr/\040-\176//csd;
                    print "$_\n";
                    }
}