変なトリップついちゃいました。トリップは無視してください。
間違ってperlスレに書き込みしてしまいましたんで↑はコピペです。
よろしくお願いします。