perl filtrage de donnees

Bonjour,
je suis entrain de faire une sorte de filtre sur des donnees avec le ~m
mais ca ne fonctionne pas. j'ai vraiment tout teste :?
voila la partie du code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my $test = ~m/cad/dd/pd/idle/tby/i;
 
 
 
	if($ip_sheet_name eq "IO Definition"){
    		for my $row ( $row_min .. $row_max ) {
        		my $cell_key = $worksheet->get_cell($row,5);
			my $cell_key_name = $cell_key->value();
		#	print "$cell_key_name\n ";
			if($cell_key_name = $test){
				print "\n";
				for my $col (4,5,1) {
					my $cell = $worksheet->get_cell( $row, $col );
					next unless $cell;
					my $cell_name = $cell->value();
					print "$cell_name, \t";

clea m affiche tous sans filtrage:cry: