if ($Route=~m/\d\.\d\.\d\.\d/) {
  do something interesting with the IP address
}