Select Code to Download

#!/usr/bin/perl
...
open(FileHTM,">newfile") || die("Cannot Open File");
print FileHTM "$s\n";
close(FileHTM)

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