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