use strict;
use warnings;

use Test::More tests => 1;

my $db = 'a_foo_b';
my $dbname = 'bar';

$db =~ s/_.+?_/_${dbname}_/;

is $db, 'a_bar_b';