Select Code to Download

while ($text =~ /$expr/g)
{
...
  # update pos to just after $term
  pos() = pos() - length($suffix);
}