foreach $line (@lines)
{
if (($line =~ /^[a-zA-Z0-9\-\_]+[ \t]+-[ \t]+.*$/) && !($line =~ /(internal|indicates.*architecture)/))
if (($line =~ /^[a-zA-Z0-9\-\_+]+[ \t]+-[ \t]+.*$/) && !($line =~ /(internal|indicates.*architecture)/))
$line =~ s/[\r\n]//g;
$line =~ s/^([a-zA-Z0-9\-\_]+)[ \t]+-[ \t]+(.*)$/\1|\2/;
$line =~ s/^([a-zA-Z0-9\-\_+]+)[ \t]+-[ \t]+(.*)$/\1|\2/;
($flag, $desc) = split(/\|/, $line);
$desc =~ s/\t/ /g;
$desc =~ s/[ ]{2,}/ /g;