last if m/\b(?:PERL|Perl|perl)\b/;