in reply to Re^3: Dereferencing in blessed object
in thread Dereferencing in blessed object

Or, use a backslash, because TIMTOWTDI: 
$db =~ s/_.+?_/_$dbname\_/;

[download]
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom