my $type;
my $r = qr/(?{print "$type\n"})/;
for (1..3) {
  $type = 'Regular';
  /$r/;
  $type = 'Once only';
  ?$r?;
}