In this case if it works for you then don't bother to change. You could try

if ($Route =~ /[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}/) {

# Do stuff

}
[download]

As far as I can tell my example isn't any better