#!/usr/bin/perl
binmode STDIN,":utf8";
binmode STDOUT,":utf8";
while(<>) {
  s/^([\x{1160}-\x{11A2}])/\x{115F}$1/;
  s/^([\x{11A8}-\x{11F9}])/\x{115F}\x{1160}$1/;
  s/([\x{1100}-\x{115F}])([\x{11A8}-\x{11F9}])/$1\x{1160}\x{115F}\x{1160}$2/g;
  s/([^\x{1160}-\x{11F9}])([\x{11A8}-\x{11F9}])/$1\x{115F}\x{1160}$2/g;
  s/([^\x{1100}-\x{11A2}])([\x{1160}-\x{11A2}])/$1\x{115F}$2/g;
  s/([\x{1100}-\x{115F}])([^\x{1100}-\x{11A2}])/$1\x{1160}$2/g;
  s/([\x{1100}-\x{115F}])$/$1\x{1160}/;
  print;
}
