#! /usr/bin/perl
$= = $';
$; || $. | $|;
$_ =
'*$(^@(%_+&);@-);~~,.*+,./|);;;~~@-~~~~;;(),./.);@-);@-);*+~~@-,./|,.;.););~~@-);*+,.;.,./.);~~~~/.;./@,./|~~~~;#-(@-__&$#%^';
$__  = '`' & '&';
$___ = "````" | "$[`$[" | '`%",';
$~   =
  ( "$___$__-$[``$__" | "$___" | ("$___$__-$[.%") )
  . ( "'`" | "'$[" | "'#" )
  . '/.*?&([^&]*)&.*/$'
  . ++$=
  . ( "/``" | "/$[`" | "/#'" )
  . ( ";`/[\\`\\`$__]//`;" | ";$[/[\\$[\\`$__]//`;" | ";#/[\\\$\\.$__]//'" )
  . '@:=("@-","/.","~~",";#",";;",";.",",.",");","()","*+","__","-(","/@",".%","/|",";_");@:{@:}=$%..$#:;'
  . ( '`' | "$[" | '#' )
  . "/(..)(..)/"
  . ( "```" | "``$[" | '#("' ) . '(($:{$' . $= . '}<<'
  . ( ++$= + $= )
  . ')|($:{$' . $= . '}))/'
  . ( "```;" | "``$[;" | "%'#;" )
  . ( "````'$__" | "%$[``" | "%&!," ) . ${$[};
`$~$__>&$=`;