I don't think passing a regex adds much, because grep is so easy to use. And after all, it's what grep is for.

@EXPORT_OK = grep !/^_/, Symbol::List::symbols('CODE');
[download]

BTW, Symbol::List is not just for exporting :)

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]