Select Code to Download

$ perl -MText::CSV_XS=csv -we 'csv( in           => *ARGV,
                                    sep_char     => ";",
...
                                        $_[1][-1] = join "", map chr h
+ex, split /:/, $_[1][-1]
                                    }
                               )' file

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

($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,