# try to match path variables ..  such as /foo/bar and
# do not match /foo  bar

$a="/foo/bar";
$b="/foo bar";

if ($a =~ /(^\/[0-9a-zA-Z_])+/)
{
        print "$a is fine !\n";
}

if ($b =~ /(^\/[0-9a-zA-Z_])+/)
{
        print "$b is fine too !\n";
}


# I DO NOT WANT $b TO MATCH !! :(