概要

paiza.ioでperlやってみた。
湯婆婆やってみた。

サンプルコード


use Encode;

my $name;
do {
    print "契約書\n";
    print "甲は油屋当主として、乙を油屋に雇用することを契約し、\n";
    print "労働に伴う対価の支払いを右の通り、約定する。\n";
    print "なお、一日の労働の対価は金百円とする。\n";
    print "甲　油屋当主　湯婆婆\n";
    print "\n";
    print "乙\n";
    print "契約書だよ。そこに名前を書きな。\n";
    $name = <STDIN>;
    chomp($name) if defined($name);
} while !defined($name) || $name eq "";
print "フーン。$nameというのかい。贅沢な名だね。\n";
my $newName = encode('utf-8', substr(decode('utf-8', $name), rand(length(decode('utf-8', $name))), 1));
print "今からお前の名は$newNameだ。いいかい、$newNameだよ。分かったら返事をするんだ、$newName!!\n";

実行結果

契約書
甲は油屋当主として、乙を油屋に雇用することを契約し、
労働に伴う対価の支払いを右の通り、約定する。
なお、一日の労働の対価は金百円とする。
甲　油屋当主　湯婆婆

乙
契約書だよ。そこに名前を書きな。
フーン。有働由美子というのかい。贅沢な名だね。
今からお前の名は由だ。いいかい、由だよ。分かったら返事をするんだ、由!!

成果物

以上。