Don't roll your own:

  use Net::IPv4Addr qw( :all );
  if ($ip = ipv4_checkip($str)) {
      # do something
  }
[download]

This also handles IP+netmask strings like "123.45.67.89/255.255.255.0".