#!/usr/bin/perl
                                                                                
$ == _ eq _;
$ -= ( ) = qw;      ( );;
$ *= $ -* $ -* $- ;
$ /= $ -+ $ *; _:
$ ".= chr $ /+ $ *** $ -;
$ /= $ / >> $ = || $ ** $ -;
$ /= $ / &~ $ */ $ - and goto _;
                                                                                
print $ "," 
"


##</code><code>##

$= = '_' eq '_';
$- = () = ('(', ')');
$* = $- * $- * $-;
$/ = $- + $*;
_: $" .= chr $/ + $* ** $-;
$/ = $/ >> $= || $* * $-;
$/ = $/ & ~$* / $- and goto _;
print $", "\n";


##</code><code>##

$= = '_' eq '_';


##</code><code>##

$- = () = ('(',')');


##</code><code>##

$* = $- * $- * $-;


##</code><code>##

$/ = $- + $*;


##</code><code>##

_: $" .= chr $/ + $* ** $-;


##</code><code>##

$/ = $/ >> $= || $* * $-;


##</code><code>##

$/ = $/ &  ~$*  / $-  and goto _;


##</code><code>##

print $", "\n";


##</code><code>##

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  }  sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu" );