Help for this page

Select Code to Download

Select or download this

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