in reply to Special Variable Pattern Match whilst reading input from a file
while (<CONFIG>) { $bar = $1 if /^frz\s*=\s*(\w+);/; } [download]
Arjen
Update:Oops, forgot the (apparently) mandatory semicolon.