use strict;
use warnings;

my %d = (
    foo => sub { "[@_]"; },
    bar => sub { "(@_)"; },
);

$_ = 'baz1';
s/(\w+)(??{!$d{$1}})/$d{$1}->($1)/ge; 
print "$_\n";