$ perl -E '/(?{ say "See?" })/'
See?