my $foo = qr/[.,:;] ?| /;
print $foo, "\n";

my $bar = qr{ $foo+ (?: hic | hac | hoc) }xms;
print $bar, "\n";

my $baz = qr{ $bar{42} f[eio]e }xms;
print $baz, "\n";