Help for this page

Select Code to Download

Select or download this

use Regex::PreSuf;
my $re = presuf({anychar => 1}, qw(@foo @bar @baz));
print qq($re\n);
__RESULT__
\@(?:ba[rz]|foo)