$cmt =~ s/</＆ｌｔ；/g;
$cmt =~ s/>/＆ｇｔ；/g;

３，４行目はこうです、失礼しました…