$ 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