Help for this page

Select Code to Download

Select or download this

use Tie::File;

...
    s/leeming=.*/leeming=$meal/
}
untie @meals;