#!/usr/bin/perl

use strict;
use warnings; 

die "Usage: $0 <input file>" unless 1 == scalar @ARGV;

my $inp_fname = shift;

die "Cannot open $inp_fname\n" unless open(INP, $inp_fname);

while (my $line = <INP>)
{
    my @tokens = split(/,/, $line);
    $tokens[4] = hex($tokens[4]);
    print join(',', @tokens);
}

close(INP);