$foo =~ s/ab/cd/i for 1..5;