$ ls test-re.yaml
ls: cannot access test-re.yaml: No such file or directory

$ test-yaml-re.pl
Wrote test-re.yaml

$ cat test-re.yaml
---
patterns:
  - !!perl/regexp (?^i:^foo.*bar.*baz)
  - !!perl/regexp (?^i:^bar.*baz.*quux)
  - !!perl/regexp (?^:^quux$)

$ test-yaml-re.pl '^foo$'
Wrote test-re.yaml

$ cat test-re.yaml
---
patterns:
  - !!perl/regexp (?^:(?^i:^foo.*bar.*baz))
  - !!perl/regexp (?^:(?^i:^bar.*baz.*quux))
  - !!perl/regexp (?^:(?^:^quux$))
  - !!perl/regexp (?^:^foo$)

$ test-yaml-re.pl '^bar$'
Wrote test-re.yaml

$ cat test-re.yaml
---
patterns:
  - !!perl/regexp (?^:(?^:(?^i:^foo.*bar.*baz)))
  - !!perl/regexp (?^:(?^:(?^i:^bar.*baz.*quux)))
  - !!perl/regexp (?^:(?^:(?^:^quux$)))
  - !!perl/regexp (?^:(?^:^foo$))
  - !!perl/regexp (?^:^bar$)

$ test-yaml-re.pl '^baz$'
Wrote test-re.yaml

$ cat test-re.yaml
---
patterns:
  - !!perl/regexp (?^:(?^:(?^:(?^i:^foo.*bar.*baz))))
  - !!perl/regexp (?^:(?^:(?^:(?^i:^bar.*baz.*quux))))
  - !!perl/regexp (?^:(?^:(?^:(?^:^quux$))))
  - !!perl/regexp (?^:(?^:(?^:^foo$)))
  - !!perl/regexp (?^:(?^:^bar$))
  - !!perl/regexp (?^:^baz$)