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