$ perl -MText::CSV_XS=csv -we 'csv( in           => *ARGV,
                                    sep_char     => ";",
                                    always_quote => 1,
                                    after_parse  => sub {
                                        $_[1][-1] = join "", map chr hex, split /:/, $_[1][-1]
                                    }
                               )' file


##</code><code>##

"Feb 2, 2018 10:50:49.996148000 ";"172.16.21.120";"54859";"196.58.210.193";"9889";"*h	$[~SSL.Google"


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,