search and replace confusion

[jonnyfolk]

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?

[davorg]

Your input contains:

<!-monthstart--><option value="01">January </option>\n

Your substitution looks for:

s/<!--monthstart-->.*<!--monthend-->/MONTHS<br>\n/s;

Spot the discrepancy :)

[jonnyfolk]

Aah, thanks very much. More embarrassing is the amount of time I've spent staring at it trying to find my mistake!! :)

[reneeb]

You're searching for <!--monthstart, but in $copyindex there is just a <!-monthstart