Select Code to Download

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

$linecontainsbuf{$searchfield} = $line;

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

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