CGIだけどなんか質問ある Pert 5.01

すいません。便乗質問になっちゃうんですけど、
YY-BBSにこのトリップ機能をつけるにはどこにこのコードを
付け足せばいいんでしょうか？

### --- ログ書き込み処理 --- ###
sub regist {

　　｜
　　略
　　｜

#トリップ機能
$in{'name'} =~ s/◆/◇/g;
$in{'name'} =~ s/\x23(.+)$/ "◆".trip($1)/e;

}

### --- トリップ生成ルーチン --- ###
sub trip {

my $key = shift;

$key =~ s/"/"/g;
$key =~ s/</</g;
$key =~ s/>/>/g;

my $salt = substr("${key}H.", 1, 2);
$salt =~ tr/\x00-\x2d\x7b-\xff/./;
$salt =~ tr/\x3a-\x40\x5b-\x60/A-Ga-f/;

return substr(crypt($key, $salt), -8);
}

こんな感じにしてみたんですが書き込みのときに名前を「名無しさん#aaaa」
でやったんですがそのまま「名無しさん#aaaa」と表示されてしまいます・・
どこを直せばいいんでしょうか？

>>422
機能、スレ違いを指摘されたので続きは

スクリプト改造工房
http://pc.2ch.net/test/read.cgi/php/1012839651/

でやりましょうか♪
俺に出来ることなら手伝いますんで。