Maybe I'm failing to see a difficult thing here, but couldn't you just do:

# Sticking with pattern matching
find_me( $fs, $fs =~ m|^/$| );

# Simpler
find_me( $fs, $fs eq '/' );

# Simpler Still
$File::Find::prune = $fs ne '/';
find_me;
[download]