if ($homeurl !~ m[^http://] and $homeurl !~ m[^https://]) {
print "Your home url has to start with http:// or https://";
}
####
if ($homeurl !~ m[^http://|https://]) {
print "Your home url has to start with http:// or https://";
}
####
if ($homeurl !~ m[^https?://]) {
&inerror("Your home url has to start with http:// or https://");
}