$ perl -Mstrict -Mwarnings -E '
my $str = q{i am us$ing moni$ka expressi$on};
say $str;
$str =~ s{(?=\$)}{\x5c}g;
say $str;'
i am us$ing moni$ka expressi$on
i am us\$ing moni\$ka expressi\$on
$