$mystr =~ s/whatever/e.*fg/g; #### mystr: abcdwhateverhijklfghijklabcdwhatever #### $mystr =~ s/whatever/e.*fg/g while ( $mystr =~ /e.*fg/);