Select Code to Download

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -MCarp::Always -E
+'

$ perle 'my %x = qw{0 a 1 b 2 c}; say "$x{0}$x{1}$x{2}"'
abc

$ perle 'my %x = qw{0 a 1 b 2 c}; say "012" =~ s/([012])/$x{$1}/gr'
abc

$ perle 'my @x = qw{a b c}; say "$x[0]$x[1]$x[2]"'
abc

$ perle 'my @x = qw{a b c}; say "012" =~ s/([012])/$x[$1]/gr'
abc

$ perle 'my %ent = qw{& &amp; < &lt; > &gt;}; say "... < & > ..." =~ s
+/([&><])/$ent{$1}/gr'
... &lt; &amp; &gt; ...