my @fields = split /\t/, $line; # split the line on tabs
# or 
my( $threadnum ) = $line =~ /Thread-(\d+)/; # grab the digits following Thread-