open(I,'<','error.log');
undef $/; $_ = <I>;
print "$1\n" if /\s*HELPTEXT\s+(.*)\s*HELP/s;