$string = "good food"; $string =~ s/o*/e/;print $string;