Win8 Strawberry 5.8.9.5 (32)  Mon 03/15/2021 12:41:31
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings
my $foo = "%^&*(";
my $bar = 'Bar';
my $string = "\U$bar\E \l\U$bar\E \Q$foo\E \n";
print $string;
^Z
BAR bAR \%\^\&\*\(