Change your return to

return ( $addr_to_check =~ m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/ )
  ? 1 : 0;
[download]