$text =~ s/j/p/g;