a.pl

use strict;
use warnings;
use feature 'say';

my $inicio_dados = 0;
while (my $line = <DATA>) {
  chomp $line;
  if ($line =~ /^[-]+$/) {
    $inicio_dados = 1;
    next;
  }
  next unless $inicio_dados;
  
  my @fields = split /\s+/,$line;
  
  use Data::Dumper;
  say Dumper \@fields;
}

__DATA__
### targetp v1.1 prediction results ##################################
Number of query sequences:  516
Cleavage site predictions not included.
Using NON-PLANT networks.

Name                  Len            mTP     SP  other  Loc  RC
----------------------------------------------------------------------
F55F3.2b              548          0.025  0.970  0.051   S    1
DSIM0209463           685          0.193  0.839  0.025   S    2
PB13537-PA            272          0.081  0.063  0.906   _    1
CPIJ016026-PA         575          0.109  0.844  0.093   S    2
RPTMP00928-PA         595          0.028  0.909  0.148   S    2
DSEC0203033           685          0.171  0.860  0.024   S    2