Perl-3 passed (not yet Perl-2)