while (s/^FOO/BAR/g) {
    1 ; # no op
}