https://ru.wikinews.org/wiki/Perl_для_начинающих_в_примерах