I think that this problem could be solved recursively. Load myfile into $_. Then s/(^.*)(searchterm{1}?*$)/$1/s until all occurences of /searchterm/ are gone.