for($str = "the boy walked the dog") {
    s/walked/fed/;
    s/boy/girl/;
    s/dog/Audrey II/;
}
[download]

Makeshifts last the longest.