#!/usr/local/bin/perl -w

use strict;

my @files =qw(CQA_frobbish.OUTPUT cQa_blintz.output cqA_pmos_lkg.output);

my $ModNameList = 'pmos_lkg';
foreach my $file ( @files ) {
    if($file =~ m/.output/gi ) {
        my $name = $file;
        $name =~ s/.output//gi;
        $name =~ s/^cqa_//gi;
        if($ModNameList =~ m/$name/g) {
            print "Found:$name\n";
        }
    }
}