DB<139> use List::Util qw/all/

  DB<140> $string = "abd__ghi__"

  DB<141> p all { $string =~ $_ } @patterns
1
  DB<142>