ぜろちゃんねるプラス質問スレ 2

216 ：0ch+開発担当 ◆0chp.sx.ik ：2014/05/11(日) 23:27:17.18 ID:B8qsZsOd0

>>215
OMIKUJI関数と同じように sub OMIKUJI2 を作って、
  my $res1 = OMIKUJI();
  my $res2 = OMIKUJI2();
  $from =~ s/!omikuji/<\/b>【$res1 $res2】<b>/;
のような感じでどうでしょうか。