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

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