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