search and replace confusion

jonnyfolk has asked for the wisdom of the Perl Monks concerning the following question:


if (lc($Message) =~ /^db /) {
print "Content-type:text/html\n\n";
print "c=$Message<br>\n";
  $Message = s/^db //;
  $Message = s/^Db //;
  $Message = s/^dB //;
  $Message = s/^DB //;
print "m=$Message";
exit;
}
[download]

output is:

c=Db test4
m=
[download]

My aim is to remove the initial Db but in fact everything is removed, it would seem.

Why isn't it doing what I expect?

Back to Seekers of Perl Wisdom