Help for this page
my $didit=/^ a # literal a ... 42 # literal 42 $/x; print Dumper [$_, $didit?($1,$2):(undef,undef), $didit];
# 2 $VAR1 = [ ... 'o] grmbl', '1' ];