while( my $line = <FILE> ) {
  chomp($line);
  if( $line =~ / SIL$/ ) {
    print $line, "\n";
    last;
  }
}