if ($string =~ m/bar(\/)?[^.]/) {
    print "yes\n";
}
else {
    print "No\n";
}