in reply to Need to search for a string in a file

perl -lne " print $1 if /^([^=]+)=/ " < infile  > outfile "

In Section Seekers of Perl Wisdom