${$_[1]} =~ s/Perl/PERL/;