my @fields = split m/ /, $line;
$fields[9] = 50;
print join ' ', @fields;