http://qs321.pair.com?node_id=11128920


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

Or, use a backslash, because TIMTOWTDI:
$db =~ s/_.+?_/_$dbname\_/;
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]