> > Perl出来ます
> どのぐらい？

 $msg =~ s#堀江由衣#\<font class\=seiyu\>堀江由衣\<\/font\>#ig;
 $msg =~ s#ほっちゃん#\<font class\=seiyu\>ほっちゃん\<\/font\>#ig;

参考：2000/07/28(金)16時18分40秒