&jcode::tr(\$GB->{FORM}->{'FROM'}, '＃', '#');
とか、
&jcode::tr(\$GB->{FORM}->{'mail'}, '＃', '#');

とかって、もうちょっと効率よくできないのかしら。