while (<CONFIG_FILE>) {
 if (/^frz\s+=\s+(\w+);/) {$bar=$1}
}

##</code><code>##

"abc123def"=~/([a-z]+(\d+)(.*))/;
print "first: $1\nsecond: $2\nthird: $3\n";