#!/usr/bin/perl

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