chop $fields[9];  # Remove the period after the last digit

##</code><code>##

 $fields[9] =~ s{\.$}{}; # Remove any trailing period