Add preceding zero to perl IP string

### Add preceding zero to IP address so that the address is 192.058, not 192.58

$IP=~s/(\d+)/substr”00$1″,-3/eg;