my $IP = '127.0.0.1';

my $abs_IP = sprintf "%03d"x4, split /\./, $IP;