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