Perl branch