Help for this page
> perl -de0 ... DB<138> p @patterns == grep { $string =~ $_ } @patterns DB<139>
DB<139> use List::Util qw/all/ ... DB<141> p all { $string =~ $_ } @patterns 1 DB<142>