DB<69> p $_[0] DB<70> x $_[0] 0 "\c@\c@\c@\c@" #### #if (substr($hex_ip,0,1) eq ""){ if ($hex_ip !~ m/0x.*/){ $ip = "0.0.0.0"; }