I'm probably misunderstanding what you want, I'm rather new at this, but why not this?
if ($line =~ /\((.*)\)\// ) {print "MACHINE=$1 \n";}
That way it gets anything between '(' and ')\'
He picked the perl from the dying flesh and held it in his palm, and he turned it over and saw that its curve was perfect in the hand he had smashed against the gate; the torn flesh of the knuckles was turned grayish white by the sea water. ~Steinbeck "The Perl"
Comment on Re: Parsing Issue while using Variable name in Pattern