while ($ConfigData =~ m/^(\w+)=(.*)/mg) { my($key, $value) = ($1, $2); } ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl