use strict;
use warnings;
use 5.012;

my $target = 'hello';
my %should_replace = ('hello' => 1);
my $repl = 'Hello';


$_ = 'hello world goodbye';

s/$target/print $should_replace{$target} ? "$repl " : "[$repl] "/ex;