`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 "$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;" . $\ . $" . "$^$~$*.>&$=";
`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`