my @tokens = split;
my $num_st = $tokens[4];