исправление двойных перенаправлений с помощью perlwikipedia