$db =~ s/_.+?_/_$dbname_/;

##</code><code>##

my $temp = "_$dbname"."_";
$db =~ s/_.+?_/$temp/;