my $var2 = $var =~ s/world/earth/f;