$ perl -MYAML::Syck=Dump -le '$_="fum";/(fee)|(fie)|(foe)|(fum)/;print Dump( \@- );print "paren ", grep( defined $-[$_], 1..4), " matched"'
--- 
- 0
- ~
- ~
- ~
- 0

paren 4 matched