if ($file =~ /\.pm/){
        #do something
    }