こうすると、どうなるかにゃ?
$salt = substr($tripkey.'HG', 1, 2);
$salt =~ tr/\x80-\xFF/\x00-\x7F/;
$salt =~ tr/:;<=>?\@[\\]^_`/ABCDEFGabcdef/;
$salt =~ tr/\x7B-\x7F/\x2e-\x32/;
$salt =~ tr/\x14-\x2D/\x61-\x7A/;
$salt =~ tr/\x00-\x13/\x47-\x5A/;
(もしかして、jbbsは、この仕様?)