r.pl6

my token abc
{
    ^^

    $<leading-whitespace> = \h*
    :my UInt:D $leading-whitespace = $/<leading-whitespace>.chars;
    { say '[DEBUG] $leading-whitespace: ', $leading-whitespace.perl }
    { say '[DEBUG] real $leading-whitespace: ', $/<leading-whitespace>.chars }

    \w+

    $$
}

my Str $text = q:to/EOF/.trim-trailing;
  abc with two leading whitespaces
EOF

say so $text ~~ &abc;