in reply to matching and mysterious captures

You put them there
...<end block>\n\n$2}

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

In Section Seekers of Perl Wisdom