try this:

open FILE, "$file" or die "$!";

while (<FILE>){
  m/^frz\s=\s(\w+)\;/;
  print $1;
}
close FILE;
[download]

See, the (\w+) will take whatever is matched by \w+ and store it in $1, perl's magic match variable. that way you eliminate the need for $foo and $bar altogether.

-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GPA/P/S d+ s++:+ a--- C++ UL++ P++>++++ L++ E W++ N o? K? w-- !O M- V?
+ PS++ PE- Y PGP- t 5- X+ R* tv-- b++ !DI D---(+) G e- h-- r++ y+++++>
++ 
------END GEEK CODE BLOCK-----
[download]