1 while $str =~ s/PAT/REPL/;