#!/usr/bin/perl

use strict;
use warnings;

my @replace = (
   [ qr/\/ka/   => '"ku"'  ],
   [ qr/\/hi/   => '"he he he"'  ],
);


my $s = "/ka /hi";

for my $replace (@replace) {
    $s =~ s/$replace->[0]/$replace->[1]/gee;
}

open(FileHTM,">newfile") || die("Cannot Open File");
print FileHTM "$s\n";
close(FileHTM)

##</code><code>##

my @replace = (
   [ qr/\/ka/   => '"ku"'  ],
   [ qr/\/hi/   => '"he he he"'  ],
);