sub normalize_uri { my $found; find_uris($val, sub { $found = shift; } ); return $found; }