#!/usr/bin/perl
$ == _ eq _;
$ -= ( ) = qw; ( );;
$ *= $ -* $ -* $- ;
$ /= $ -+ $ *; _:
$ ".= chr $ /+ $ *** $ -;
$ /= $ / >> $ = || $ ** $ -;
$ /= $ / &~ $ */ $ - and goto _;
print $ ","
"
####
$= = '_' eq '_';
$- = () = ('(', ')');
$* = $- * $- * $-;
$/ = $- + $*;
_: $" .= chr $/ + $* ** $-;
$/ = $/ >> $= || $* * $-;
$/ = $/ & ~$* / $- and goto _;
print $", "\n";
##
##
$= = '_' eq '_';
##
##
$- = () = ('(',')');
##
##
$* = $- * $- * $-;
##
##
$/ = $- + $*;
##
##
_: $" .= chr $/ + $* ** $-;
##
##
$/ = $/ >> $= || $* * $-;
##
##
$/ = $/ & ~$* / $- and goto _;
##
##
print $", "\n";
##
##
$/ = q#(\w)# ; sub sig { print scalar reverse join ' ', @_ } sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu" );