in reply to @ Regular expression:

Q . 1) 

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

[download]

In Section Seekers of Perl Wisdom