Perhaps Path::Tiny where the children method will take a regexp (sample from an OS X box):

$ perl -MPath::Tiny=path -E 'say join( qq{\n}, path(q{/})->children(qr
+/i[bn]|sr/) )'
/usr
/bin
/sbin
/Library
/com.apple.TimeMachine.localsnapshots
[download]