for my $line (@result) {
    $line =~ s/^\s+(?:or\s+)?(.*)[ ><!=]=.*/$1\n/; 
}

@result = grep !/^\s+$/,@result;

print @result,"\n";