Select Code to Download

use feature ":5.10";
use strict;
...
        }
    }
}

  my.my id >= 1

  is-relative.to code = 'sister'
 or  is-relative.to code = 'brother'
 or  is-mother.to code = 'dog'

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

print @result,"\n";

my.my id
is-relative.to code
is-relative.to code
is-mother.to code