if ($base =~ m{^(http://[\w\.\/\-]+)$}) { $base = $1; print get("$base/index.html"); } else { die "$base didn't match\n"; }