$linecontainsbuf{$searchfield} = $line for @validbufs;

##</code><code>##

$linecontainsbuf{$searchfield} = $line;

##</code><code>##

@fields=split /\'/,$line;
$searchfield=$fields[1];

##</code><code>##

($searchfield) = $line =~ /^'([^']*)/;