$string =~ s/$first(.*?)$last/$reserve/s; #### $string =~ s/$first.*?$last/$reserve/s;