/Some . Regex/;
rx/asdf/;
m/asdf/;
rx{ x.x };
rx| x.x |;
s/a/b/;
S/a/b/;
s{x.x} = 5;
token a { x.x }
rule b { x.x }
regex c { x.x }
regex hiea {
literal \$\%\$\*\'
\s\p\e\c\i\a\l
'quoted stuff \a\b\.\"\' \\'
<?before lookarounds>
<call>
$<named-capture>=[some stuff]
:my $*some-var = 5;
:my $*another-var;
$some-var $*other-var @array-var %not-a-var
<$some-var>
$(if True { "yes" } else { "no" })
<{if True { "yes" } else { "no" }}>
{ if $I-don't-like-this { False } }
}