Perlでも==とeqの意味は違うんですけど?