($name, $tripkey)=split(/\#(.+)/, $form{'name'});
if($tripkey){
　  $s alt=substr($tripkey.'H.', 1, 2);
　  $s alt=~ tr/\x3A-\x40\x5B-\x60\x00-\x2D\x7B-\xFF/A-Ga-f./;
　  $s alt=~ s/[^\.\/0-9A-Za-z]/\./g;
　  $trip='◆'. substr(crypt($tripkey, $salt), -10);
}
print "$name$trip";


なるほど。