Select Code to Download

> 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>