Help for this page
chop $fields[9]; # Remove the period after the last digit
$fields[9] =~ s{\.$}{}; # Remove any trailing period