#!/usr/local/bin/perl

  open (SP, "sp_list.txt");

  while (my $line = <SP>) {
     if ($line =~ /HUMAN/) {    # match line against "HUMAN"
         print $line;           # print line if matches
      }
  }