`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=` 

##</code><code>##

`$=`;
$_=\%!;
($_)=/(.)/;
$==++$|;
($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;
$.++;
$.++;
$_++;
$_++;
($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);
$,++;
$,++;
$^|=$";
`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`

##</code><code>##

`$=`;
use Errno ();
$_ = \%!;
($_) = /(.)/;
$= = ++$|;
($., $/, $,, $\, $", $;, $^, $#, $~, $*, $:, @%) = ($! =~ /(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/, $"), ++$=;
++$.;
++$.;
++$_;
++$_;
($_, $\, $,) = ($~ . $" . "$;$/$%[$?]$_$\$,$:$%[$?]", $" & $~, $#);
++$,;
++$,;
$^ |= $";
`$_$\$,$/$:$;$~$*$%[$?]$.$~$*$#$%[$?]$;$\$"$^$~$*.>&$=`;

##</code><code>##

`60`;
$_=\%!;
print "\$_ is currently: $_\n";
($_)=/(.)/;
print "\$_ is currently: $_\n";
$= = ++$|;
print "\$= is currently: $=\n";
print "\$! is currently: $!\n";
(    $., $/, $,, $\, $", $;, $^, $#, $~, $*, $:, @% ) = (
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;
print "\$. is currently: $.\n";
print "\$/ is currently: $/\n";
print "\$, is currently: $.\n";
print "\$\\ is currently: $\\n";
print "\$\" is currently: $\"\n";
print "\$; is currently: $;\n";
print "\$^ is currently: $^\n";
print "\$# is currently: $#\n";
print "\$~ is currently: $~\n";
print "\$* is currently: $*\n";
print "\$: is currently: $:\n";
print "\@% is currently: ", join( ' ', @% ), "\n";
$.++;
$.++;
print "\$. is currently: $.\n";
$_++;
$_++;
print "\$_ is currently: $_\n";
( $_, $\, $, ) = ( $~ . $" . "$;$/$%[$?]$_$\$,$:$%[$?]", $" & $~, $#, );
print "\$_ is currently: $_\n";
print "\$\\ is currently: $\\n";
print "\$, is currently: $.\n";
$,++;
$,++;
print "\$, is currently: $.\n";
$^|=$";
print "\$^ is currently: $^\n";
print "\$\" is currently: $\"\n";
print "$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;" . $\ . $" . "$^$~$*.>&$=";
`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`

##</code><code>##

$_ is currently: HASH(0x18092a8)
$_ is currently: H
$= is currently: 1
$! is currently: No such file or directory
$. is currently: N
u$/ is currently: o
u$, is currently: N
u$\ is currently: u
u$" is currently: c
u$; is currently: h
u$^ is currently: nu$# is currently: l
u$~ is currently: e
u$* is currently: r
u$: is currently: t
u@% is currently: s s
u$. is currently: P
u$_ is currently: J
u$_ is currently: echo Just 
a$\ is currently: a
a$, is currently: P
a$, is currently: P
a$^ is currently: na$" is currently: c
aecho Just another Perl hacker.>&2aJust another Perl hacker.

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)