use strict; use Perl6::Rules -debug; rule head :i { HEAD } rule deck :i { DECK } rule byline :i { BY } rule bio :i { BIO } rule body :w { [ ]* } rule para :w { + } rule figure :i { } rule line { +? \v } rule word { | <[\S+]>? } rule italics :w { I ([|\v]+) } rule blankline { ^^$$ } rule COLON { \: } "abcd" =~ m/a $?foo:=(..) d/; print "yes" if ($0->{foo} eq "bc"); $0->dump(); # # get all input my @line = <>; my $line = join('', @line); if ($line =~ m:words/ $?foo:=() $?deck:=() [ $?by:=()]? /) { $0->dump(); }