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; }
output is:
c=Db test4 m=

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?