$$dataref =~ s/Perl/PERL/;

##</code><code>##

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

##</code><code>##

$$dataref =~ s/Perl/PERL/g;