Select Code to Download

$ perl -wMstrict -e' my $q="qwer"; my @a=(\$q); print $a[0]->$*,"\n";'
qwer

$ perl -wM5.024 -e' my $q="qwer"; my @a=(\$q); print "$a[0]->$*\n";'
qwer