$ip  = "10.20.30.40";
@ip  = ($ip =~ m(^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$));

for ( @ip ) {
  $bin = $_ + 0;
}