#! perl
use strict;
use warnings;

my $string = 'i am us$ing moni$ka expressi$on';

$string =~ s'\$'\$'g;

print $string, "\n";