# FROM
my $results = ( $input =~ /$RE{net}{IPv4}/ or is_domain($input) ) ? $input : $form;

# TO
my $results = ( $input =~ /^$RE{net}{IPv4}$/ or is_domain($input) ) ? $input : $form;