Or, since you're exiting and therefore don't need the modified $Message further down, just capture any trailing stuff and print once:

if ($Message =~ /db (.*)/i){
   print "Content-type:text/html\n\n",
         "c=$Message<br>\n",
         "[m=$1]\n";
   exit;
}
[download]