#!/usr/bin/perl
use strict;
use warnings;
my $data = '10.34.2.252';
my @values = split('\.', $data);
foreach my $val (@values) {
  $val = sprintf("%02x", $val);
  print $val;
}
print "\n";
exit 0;