#! perl
use strict;
use warnings;

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

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

print $string, "\n";

##</code><code>##

23:12 >perl 1483_SoPW.pl
i am us\$ing moni\$ka expressi\$on

23:14 >