Re^4: How Perl decides where a variable ends and text starts: Match variables in string interpolation

A more extreme example:

Win8 Strawberry 5.8.9.5 (32)  Fri 07/23/2021 20:17:49
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings -l

{
    no strict 'refs';
    ${'@-%^#$!+'} = 'Yikes!';
    print ${'@-%^#$!+'};
}

print "%main:: $main::{'@-%^#$!+'}";

^Z
Yikes!
%main:: *main::@-%^#$!+
[download]

Same behavior under Strawberry 5.30.3.1 64-bit.

Give a man a fish: <%-{-{-{-<

Comment on Re^4: How Perl decides where a variable ends and text starts: Match variables in string interpolation Select or Download Code