if reacting to use then isitme;

##isitme:
if $actor eq $target then noteme else end;

##noteme:
$note = (rings a crisp b flat,makes no sound);
print "[$actor] $note";
print "[$actor] goes completely silent";