perl_study