Cannot make this simple regexp work 1

[whn]

My brain must be short circuited!!

$string = 'trunk.codeanalysis.test';
print "\$string = $string\n";

if ($string = m/trunk\.codeanalysis\.([a-z]+)/) {
  $suffix = $1; 
  print "Match - #$suffix#\n";
} else {
  print "No match!!\n";
}
exit 0;

A test run:

% ./test.pl
$string = trunk.codeanalysis.test
No match!!

How can it not find the match???

Please help to modify $string and keep the regexp so that a match is guaranteed.
[Note] I got this regexp from another place. I just want to construct a string to make "if ($string = m/trunk\.codeanalysis\.([a-z]+)/)" block work.

Thanks!

 

[feherke]

Hi

[b]if[/b] ($string =[COLOR=red yellow]~[/color] m/trunk\.codeanalysis\.([a-z]+)/)

Feherke.
feherke.ga

 

[whn]

Holly! My brain is indeed short circuited!!!

Thank you, feherke!!