my $what = 'ram';
$what =~ s/(\Q$what\E)/$1$1$1/;
print "$what\n";