Perl codes