#!/usr/bin/perl -w
use strict;
my $str = "TEST_ENVIRONMENT	OS_NAME=AIX	BUILD_TYPE=	KERNEL_BITNESS=64	USER_BITNESS=32	OS_RELEASE=6.1.0.0	CPU_CLASS=powerpc	MACHINE_CLASS=IBM,8203-E4A	HOSTNAME=lcla114	NUM_CPUS=5	CUSTOM=	";
my $machine_class = ($str =~ /MACHINE_CLASS=\s*(\w*)/);
print "MACHINE CLASS=$machine_class";