Select Code to Download

# Open the file containing data or abort with error message
open(my $fh, "<", "some_file.txt") || die "Can't open file: $!";
...
      "Time: $timePoints, Difficulty: $diffPoints\n\n";
  }
}

  # Assign only the columns you're interested in
  my ($timePoints,$diffPoints,$name) = +(split(/\s+/,$line,13))[3,11,1
+4];

  # Ensure the line consists of 12 integers + something
  my ( ... ) = ($line =~ /^\s*(?:(\d+)\s*){12}(.*)/);

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