while (<>){
  chomp;
  if (/^(miRNA\w+) - results/){
    my $mirna_id = $1;
    while (<>){
      chomp;
      last if /^####### results end #########/;
      # PARSE YOUR DATA HERE
    }
  }
}