Select Code to Download

$mystr =~ s/whatever/e.*fg/g;

mystr: abcdwhateverhijklfghijklabcdwhatever

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