#!/public/bin/perl

$s = "http://x.xx";
if ($s =~ /^http:\/\/([\w+.]\/)*[\w.]+$/) {
	print "match:$s\n";
}