Select Code to Download

use warnings;
use strict;
...
  $udStr =~ s/\$$_(?=\D)/$replace/;
  }
print "after: $udStr\n";

before: abcabcabc
after: ---a---bcabcabc