my ($machine_class) = $str =~ /MACHINE_CLASS=\s*(\w*)/;