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