next unless $line =~ /(intrepid|triumph)/;
  my ( ... ) = ...;
  print ....;