use strict;
use warnings;
use 5.010;
use Time::HiRes qw(time);

my $data = 'x' x 500_000_000;
my $t = time;
$data =~ tr/x/y/;
say time - $t;
__END__
0.469923973083496