Select Code to Download

$ perl -E 'say $^V; my $x = "xyz"; my $r = \$x; say "PFDR: $r->$*";'
v5.36.0
PFDR: xyz

$ perl -e 'print $^V; my $x = "xyz"; my $r = \$x; print "PFDR: $r->$*"
+;'
$* is no longer supported as of Perl 5.30 at -e line 1.

$ perl -e 'use v5.22; say $^V; my $x = "xyz"; my $r = \$x; say "PFDR: 
+$r->$*";'
$* is no longer supported as of Perl 5.30 at -e line 1.

$ perl -e 'use v5.22; use feature "postderef"; say $^V; my $x = "xyz";
+ my $r = \$x; say "PFDR: $r->$*";'
$* is no longer supported as of Perl 5.30 at -e line 1.

$ perl -e 'use v5.22; use feature "postderef"; say $^V; my $x = "xyz";
+ my $r = \$x; my $y = $r->$*; say "PFDR: $y";'
v5.36.0
PFDR: xyz

$ perl -e 'use v5.22; use feature "postderef_qq"; say $^V; my $x = "xy
+z"; my $r = \$x; say "PFDR: $r->$*";'
v5.36.0
PFDR: xyz

$ perl -e 'use v5.24; say $^V; my $x = "xyz"; my $r = \$x; say "PFDR: 
+$r->$*";'
v5.36.0
PFDR: xyz