study_perl