Perl or , alia slag ,så